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PREFACE 


This  Note  describes  TSARINA,  a  special  modification  of 
Rand's  Airbase  Damage  Assessment  (AIDA)  computer  model  that  has 
been  developed  for  examining  conventional  air  attacks  against 
complex  targets  and  for  assessing  losses  and  damage  to  various 
categories  of  resources  as  well  as  to  various  buildings  and 
other  facilities.  TSARINA  may  be  employed  as  a  general  purpose 
damage  assessment  model,  or  as  a  special  purpose  model  for  use 
with  the  TSAR  (Theater  Simulation  of  Airbase  Resources)  computer 
model.  This  Note  includes  detailed  user  instructions  as  well  as 
a  listing  of  the  program. 

TSARINA  was  developed  by  Rand  for  use  with  the  TSAR  model 
for  studying  means  of  sustaining  and  improving  wartime  sortie 
generation  capabilities,  despite  unexpected  demands  and  sudden 
unpredictable  resource  shortages  imposed  by  air  attacks. 

TSARINA  is  basically  a  Monte  Carlo  computer  model  that  can 
generate  sample  patterns  of  airbase  damage  for  incorporation 
into  the  TSAR  simulation,  or  statistical  summaries  of  the  damage 
and  resource  losses  for  multiple  samples  of  the  specified 
attack. 

TSARINA  has  a  variety  of  possible  applications.  It  can  be 
used  separately  to  assess  the  casualties  and  losses  that  would 
be  sustained  from  air  attacks  on  airbases  (or  other  complex 
targets),  and  to  assess  the  impact  of  various  dispersal  and/or 
hardening  proposals  on  the  expected  losses.  It  can  also  be  used 
in  conjunction  with  the  TSAR  simulation  model  to  assess  the 
impact  of  airbase  damage  on  sortie  generation  capabilities,  and 
to  evaluate  proposals  for  improving  those  capabilities  at  an 
airbase  or  a  set  of  airbases. 
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TSARINA  has  been  used  in  a  study  for  the  Air  Staff  of  the 
personnel  casualties  and  War  Reserve  Materiel  (WRM)  losses  that 
might  be  sustained  in  high-level  conventional  conflict  in  Europe 
or  Korea,  and  it  is  currently  being  applied  in  conjunction  with 
TSAR  to  examine  alternative  proposals  for  improving  the  Air 
Force's  wartime  sortie  generation  capabilities,  under  Project 
AIR  FORCE.  The  model,  which  has  been  discussed  with  many  groups 
within  the  Air  Force,  has  been  transferred  to  the  Office  of  the 
Assistant  Chief  of  Staff,  Studies  &  Analyses.  This  Note  is 
being  published  to  provide  documentation  for  the  model  and  to 
introduce  it  to  a  wider  audience.  The  computer  program  is 
available  from  The  Rand  Corporation. 

This  work  was  conducted  under  the  Project  AIR  FORCE 
research  project  entitled  "Strategies  To  Improve  Sortie 
Production  in  a  Dynamic  Wartime  Environment." 


SUMMARY 


This  Note  describes  a  new  version  of  the  AIDA  airbase 
damage  assessment  computer  program  that  has  been  developed  to 
assess  losses  to  various  on-base  resources,  as  well  as  damage  to 
runways,  taxiways,  buildings,  and  other  facilities.  The  model 
may  be  used  either  as  a  general-purpose,  complex-target  damage 
assessment  model,  or  as  a  special-purpose  model  in  support  of 
the  TSAR  simulation  program.  When  used  with  TSAR,  multiple 
trials  of  a  multi-base  airbase-attack  campaign  can  be  assessed 
with  TSARINA,  and,  in  a  continuous  computer  operation,  the 
impact  of  those  attacks  on  sortie  generation  can  be  derived 
using  the  TSAR  simulation  model. 

TSARINA,  as  presently  configured,  permits  damage 
assessments  of  attacks  on  an  airbase  (or  other)  complex  that  is 
composed  of  up  to  500  individual  targets  (buildings,  taxiways, 
etc.),  and  1000  packets  of  resources.  The  targets  may  be 
grouped  into  20  different  vulnerability  categories,  and  many 
different  types  of  personnel,  equipment,  munitions,  spare  parts, 
TRAP  (tanks,  racks,  adaptors,  and  pylons),  building  materials, 
and  POL  (petroleum,  oils,  and  lubricants)  can  be  distinguished. 
The  attacks  may  involve  as  many  as  50  weapon-delivery  passes  and 
10  types  of  weapons.  Both  point -impact  weapons  (such  as 
general-purpose  bombs  and  precision-guided  munitions)  and  area 
weapons  (such  as  cluster  bomb  units  (CBUs))  can  be  accommodated. 

TSARINA  determines  the  actual  impact  points  (pattern 
centroids  for  CBUs)  by  Monte  Carlo  procedures--!. e. ,  by  random 
selections  from  the  appropriate  error  distributions.  Weapons 
that  impact  within  a  specified  distance  of  each  target  type  are 
classed  as  hits,  and  estimates  of  the  damage  to  the  structures 
and  to  the  various  classes  of  support  resources  are  assessed 
using  "cookie-cutter"  weapon-effects  approximations.  In 
addition  to  the  weapon-effects  procedures  used  with  AIDA,  this 
model  also  permits  use  of  a  novel  two- level  cookie-cutter 
representation  for  assessing  damage  to  the  various  classes  of 


resources . 
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For  each  trial  computation  of  an  attack,  the  program 
determines  the  fraction  of  each  target  covered  by  the  circular 
damage  coverage  patterns,  and  the  results  include  estimates  of 
the  overall  damage  to  each  target  and  to  all  resource  classes 
that  are  colocated  with  that  target.  In  addition,  the  output 
includes  an  estimate  of  the  total  damage  sustained  by  each  type 
of  resource  at  its  various  storage  locations.  The  attack  may  be 
repeated  automatically  for  several  trials  to  provide  statistics 
on  the  average  damage  levels  to  each  of  the  targets  and  to  each 
type  of  resource. 

A  maximum  of  five  targets  may  be  designated  as  runways  or 
taxiways  suitable  for  aircraft  operations,  and  the  model  will 
examine  these  to  see  if  an  area  of  a  user-specified  size  is 
available  for  aircraft  operations;  if  not,  the  minimum  number  of 
craters  that  would  need  to  be  repaired  to  obtain  an  area  of  that 
size  is  determined. 

The  TSARINA  program  is  written  in  FORTRAN  IV,  and  should  be 
readily  adaptable  to  other  computer  systems,  as  was  the  widely 
used  AIDA  model.  This  Note  provides  a  full  discussion  of  the 
use  of  TSARINA  as  a  general-purpose  damage  assessment  model,  and 
outlines  in  detail  the  special  requirements  for  its  use  in 
conjunction  with  the  TSAR  simulation  program.  Most  features  of 
the  model  are  illustrated  with  a  sample  problem.  Appendixes 
include  a  description  of  TSARINA  input  requirements,  definitions 
of  all  variables  and  arrays  found  in  TSARINA  common  statements, 
and  a  listing  of  the  complete  TSARINA  source  code. 
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Resource  class 

Resource  type 

Resource  packet 

Target 

Target  complex 

Target  type 

GP 

PGM 

POL 

TRAP 

WRM 


GLOSSARY 

All  airbase  support  resources  are  grouped  into 
seven  classes:  personnel,  equipment  and  AGE, 
aircraft  spare  parts,  munitions,  TRAP, 
building  materials,  and  POL. 

Different  types  of  resources  may  be  distinguished 
within  each  resource  class;  e.g.,  different 
categories  of  aircraft  maintenance  specialists. 
Resource,  when  used  alone,  implies  a  resource  type. 

A  user-specified  percentage  of  a  given 

resource  is  referred  to  as  a  resource  packet;  resources 

are  located  within  the  target  complex  as  packets. 

A  target  is  represented  by  a  rectangle  that  is 
located  in  an  X-Y  coordinate  system;  individual 
buildings,  runways,  taxiways,  parking  areas,  etc., 
can  be  designated  as  targets. 

A  target  complex,  such  as  an  airfield  or  an 
industrial  area,  is  a  collection  of 
rectangular  targets. 

A  target  type  is  specified  for  each  target;  all 
targets  of  the  same  type  have  the  same  vulner¬ 
ability,  and  all  resource  types  of  the  same 
resource  class  located  at  the  same  type  of  target 
have  the  same  vulnerability. 

General-purpose  (bomb). 

Precision-guided  munition. 

Petroleum,  oils,  and  lubricants. 

Tanks,  racks,  adaptors,  and  pylons. 

War  reserve  materiel. 


AGE 


Aerospace  ground  equipment 
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I .  INTRODUCTION 


TSARINA  (TSAR  INputs  using  AIDA)  is  a  modified  version  of 
the  AIDA  (Airbase  Damage  Assessment)  computer  model*;  it  was 
developed  to  generate  airbase  damage  estimates  for  a  campaign  of 
air  attacks,  and  to  organize  those  results  for  direct  entry  into 
the  TSAR  (Theater  Simulation  of  Airbase  Resources)  sortie  genera¬ 
tion  model,**  which  can  assess  the  impact  of  the  destructive 
effects  of  attacks.  Several  key  changes  have  been  made  to  the 
AIDA  model  so  that  the  on-base  location  of  resources  (e.g., 
personnel,  munitions,  aircraft  spare  parts,  etc.)  can  be  readily 
associated  with  various  targets  (structures/facilities),  and  so 
that  different  MAEs  (mean  areas  of  effectiveness)  and/or  Pks 
(kill  probabilities)  can  be  defined  for  the  different  resources. 
These  changes  also  permit  a  novel  two-level  "cookie-cutter"*** 
representation  of  the  effectiveness  of  weapons  against  the 
various  classes  of  resources.  In  addition,  the  various 
effectiveness  values  may  be  different  for  direct  hits  and  for 
near  misses.  With  these  added  input  data,  TSARINA  generates 
estimates  of  the  losses  among  the  various  on-base  resources,  in 
addition  to  the  estimates  of  hits  and  facility  damage  that  are 
generated  by  the  original  AIDA  model. 

TSARINA  may  be  used  either  as  a  special-purpose  model  in 
support  of  the  TSAR  simulation,  or  as  a  general-purpose  damage 
assessment  model.  When  used  with  TSAR,  multiple  trials  of  a 
multi-base  airbase-attack  campaign  can  be  evaluated  with 
TSARINA,  and,  in  a  continuous  computer  operation,  the  impact  of 

*R-1872-PR,  AIDA:  An  Airbase  Damage  Assessment  Model. 

D.  E.  Emerson,  The  Rand  Corporation,  September  197o. 

**r-2584-AF,  An  Introduction  to  the  TSAR  Simulation  Program: 
Model  Features  and  Logic,  D.  E.  Emerson,  The  Rand  Corporation, 

June  1980. 

***See  p.  15. 
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those  attacks  on  sortie  generation  can  then  be  derived  using 
the  TSAR  simulation  model.  When  TSARINA  is  used  for  damage 
estimates  only,  the  various  protocols  required  for  use  with 
TSAR  (Section  III)  may  be  ignored. 

Since  AIDA,  and  this  new  version  of  AIDA,  employ  identical 
target  and  attack  representations,  the  reader  is  referred  to  the 
AIDA  report  for  a  discussion  of  these  concepts.  The  emphasis  in 
this  note  will  be  on  the  special  features  associated  with 
TSARINA.  With  both  AIDA  and  TSARINA  the  user  is  able  to  specify 
the  size,  location,  and  nature  of  several  hundred  rectangular 
targets  and  the  characteristics  of  up  to  50  weapon-delivery 
passes.*  Targets  can  be  categorized  into  20  vulnerability 
classes,  and  up  to  10  types  of  weapons  may  be  employed  in  any 
given  attack;  point-impact  and  CBU  munitions  may  be  used  in  the 
same  attack.  Both  TSARINA  and  AIDA  are  basically  Monte  Carlo 
models;  however,  an  expected-value  mode  is  available  as  an 
option  for  evaluating  damage  to  aircraft  shelters. 


*The  maximum  numbers  of  targets  and  weapon-delivery 
passes  are  readily  changed. 


II.  TARGET  DATA 


In  AIDA  and  TSARINA,  the  facilities  on  an  airbase  are 
represented  as  a  target  complex  consisting  of  a  number  of 
rectangular-shaped  targets  (e.g.,  runways,  parking  ramps, 
buildings);  the  size,  location,*  and  type  of  each  target  are 
specified.  With  TSARINA  the  user  may  also  specify  the  resources 
that  are  associated  with  each  target.  The  resources  to  be 
identified  may  be  grouped  into  seven  categories;  personnel, 
equipment,  aircraft  spare  parts,  munitions,  TRAP,  building 
materials,  and  POL.  And  within  each  class,  different  subclasses 
may  be  distinguished  by  type;  for  example,  the  personnel  class 
may  distinguish  pilots,  crew  chiefs,  radar  repair  specialists, 
and  weapons  loaders.  Hereafter,  the  term  resource  will  refer  to 
a  particular  resource  class  and  type. 

The  user  may  specify  the  percentages  of  the  different 
resources  that  are  located  at  each  target.  Thus,  personnel  with 
different  specialties  may  be  located  at  different  facilities; 

AGE  and  other  equipment  can  be  located  in  various  buildings  or 
parked  in  designated  areas;  and  different  kinds  of  munitions, 
TRAP,  etc. ,  can  similarly  be  located  in  various  proportions  in 
various  on-base  locations. 

The  losses  estimated  for  each  resource  depend  upon  the 
attack  weapon  type,  weapon  impact  location,  resource  class, 
and  target  type,  location,  and  orientation.**  In  each  case, 
it  is  assumed  that  the  resource  is  distributed  uniformly 


*AIDA's  restrictions  on  target  location  have  been  relaxed 
for  TSARINA.  It  is  no  longer  necessary  that  all  targets  be  located 
in  the  first  quadrant  of  the  X-Y  coordinate  system,  and  the  targets 
may  cover  an  area  as  large  as  32000  x  32000  dimension  units.  When 
the  target  location  entries  are  not  entirely  within  the  first 
quadrant,  TSARINA  automatically  translates  the  coordinate  system 
to  place  all  targets  (and  attacks)  in  the  first  quadrant 
for  processing.  Furthermore,  an  auxiliary  program  is  available  that 
will  convert  dimensional  information  structured  for  the  Eglin  AFB 
MASSIVE  computer  program  into  the  format  required  for  TSARINA. 

**A11  subcategories  of  a  given  resource  class,  located  within 
targets  of  the  same  type,  are  assumed  to  have  the  same  vulnerability. 
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within  the  target  area,  and  that  the  aggregate  losses  for 
that  resource  are  the  sum  of  the  losses  estimated  to  be 
sustained  at  each  of  the  target  locations.  Additional 
weapon  effectiveness  data  must  be  supplied  to  complement 
these  extended  target  descriptors  and  the  user  is  given 
considerable  flexibility  as  to  how  these  data  are  expressed, 
as  discussed  in  Section  IV. 

Any  number  of  resource  packets  may  be  associated  with  eacli 
target,  except  that  there  may  be  no  more  than  1000*  packets  in 
total.  The  designations  used  to  specify  the  different  classes  of 
resources  are  defined  in  the  subsequent  discussion  of  supplementary 
TGT  cards.  The  "integer"  designators  that  are  to  be  assigned  to 
each  type  of  resource  are  selected  by  the  user;  the  only  constraint 
is  that  the  integers  chosen  are  not  greater  than  the  size  of  the 
corresponding  storage  array. 

TSARINA's  treatment  of  runways  is  identical  with  that 
described  for  AIDA.  Runways  must  always  be  identified  as  type 
# 1  targets;  up  to  five  may  be  entered.  When  the  minimum  clear 
length  and  width  needed  for  flight  operations  are  identified, 
and  the  "minimum  repair  requirements"  option  is  requested  (on 
the  CONT  card),  all  runway  targets  are  searched  to  find  whether 
or  not  an  uncratered  area  of  the  required  size  exists,  and  if 
not,  what  the  smallest  number  of  crater  repairs  would  be  to 
attain  that  amount  of  clear  space. 


*This  restraint  is  easily  changed  by  redefining  MXITEM  (line  85, 
page  72)  and  redimensioning  the  STOCKS  array  (line  34,  page  71  et  al.) 
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III.  DAMAGE  ASSESSMENTS  FOR  TSAR 


When  TSARINA  is  to  be  used  to  generate  damage  assessments 
for  he  TSAR  simulation,  it  is  necessary  to  make  the 
specifications  for  the  targets  and  the  resources  consistent  with 
the  conventions  used  in  TSAR.  If  TSARINA  is  not  to  be  used  with 
TSAR,  but  as  a  general-purpose  damage  assessment  model,  the 
reader  may  skip  to  Section  IV. 

The  TSAR  computer  model  is  a  large,  complex,  task-  oriented 
event -simulation  model  that  has  been  developed  to  interrelate 
the  number  of  effective  sorties  that  can  be  generated  in  wartime 
at  a  set  of  airbases  to  the  resources  that  are  available.  It 
has  been  designed  to  provide  a  means  of  assessing  the  potential 
contributions  of  various  ideas  for  improving  and  sustaining 
sortie  capabilities,  despite  unexpected  wartime  demands  and 
sudden  unpredictable  resource  shortages  imposed  by  airbase 
attacks.  When  used  with  TSAR,  TSARINA  generates  sample  patterns 
of  airbase  damage  and  loss  that  are  incorporated  into  the 
simulated  TSAR  scenario.  Special  requirements  must  be  satisfied 
when  using  TSARINA  in  order  for  TSARINA  outputs  to  interface 
satisfactorily  with  TSAR. 

These  additional  requirements  are  a  necessary  reflection  of 
the  considerable  complexity  and  flexibility  of  the  TSAR 
simulation,  and  arise  as  a  result  of 

o  The  mechanism  employed  in  TSAR  to  associate 
resources  with  facilities 

o  The  conventions  used  in  TSAR  to  identify  facilities 

o  The  procedures  provided  to  permit  disparate  resource 
categorizations  in  the  two  models. 

The  following  subsections  will  expand  on  each  of  these  items. 
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TSAR  RELATIONSHIPS  BETWEEN  FACILITIES  AND  RESOURCES 

The  TSARINA  results  include  estimates  of  (1)  the  percentage 
loss  for  each  resource  class  at  each  target  and  (2)  the  overall 
percentage  loss  for  each  type  of  resource  at  all  locations. 

When  used  in  TSAR,  one  or  the  other  of  these  percentages  are 
applied  to  the  quantities  of  each  resource  at  risk  at  the  time 
of  the  attack.  For  most  resources,  losses  are  estimated  using 
the  second  of  these  two  type  of  estimates.  Since  the  derivation 
of  this  loss  percentage  in  TSARINA  is  based  on  a  nominal 
user-specified  on-base  resource  disposition,  and  is  not  affected 
by  the  particular  consumption  experience  in  the  TSAR  simulation, 
the  use  of  this  overall  estimate  effectively  assumes  that  the 
on-base  disposition  of  a  given  subcategory  of  resource, 
expressed  in  percent,  is  not  dependent  upon  the  absolute  level 
of  such  resources.  The  first  type  of  loss  estimate  is  used  only 
for  on-duty  maintenance  personnel,  aircraft  maintenance 
equipments,  and  reparable  spare  parts;  these  resources  are 
accounted  for  individually  within  TSAR,  so  that  their  assigned 
location  at  the  time  of  the  attack  is  known. 

The  TSAR  simulation  is  able  to  associate  these  resources 
with  particular  facilities  because  it  assigns  personnel  and 
equipment  to  each  individual  task  and  those  tasks  (are  normally 
assumed  to)  occur  in  a  designated  facility.  The  maintenance 
personnel  engaged  in  on-equipment  maintenance  are  assumed  to  be 
in  close  proximity  to  the  aircraft  to  which  they  are  assigned, 
"n-duty  maintenance  personnel  who  are  not  actively  engaged  in 
on-equipment  maintenance  are  assumed  to  be  awaiting  assignment 
at  their  respective  work  centers,  or,  in  the  case  of  the 
flightline  personnel  in  a  COMO  (Combat  Oriented  Maintenance 
Organizatior. ) ,  in  a  particular  flightline  facility.  Specialists 
involved  in  parts  repair  jobs  are  assumed  to  be  in  the  facility 
designated  for  the  repair  of  the  particular  type  of  part  that 
they  are  repairing,  as  are  all  reparable  spare  parts. 
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Losses  among  resources  engaged  in  on-equipment  maintenance 
always  are  conditioned  by  a  separate  assessment  of  the 
likelihood  that  the  aircraft  is  exposed  to  damage  (this 
relationship  will  be  explained  shortly).  For  the  others,  the 
nominal  TSAR-TSARINA  logic  presumes  that  unassigned  on-duty 
personnel  and  equipment,  and  personnel  and  equipment  engaged  in 
off-equipment  parts  repair,  are  in  their  designated  facilities, 
and  that  the  loss  percentages  to  these  resources  are  related  to 
the  damage  to  those  facilities.  In  this  way,  appropriate  loss 
percentages  are  assigned  these  mobile  resources  at  the  instant 
of  the  attack.  Damage  estimates  for  facilities  and  their 
associated  resources  are  only  passed  to  TSAR  for  designated 
targets;  this  is  done  by  entering  the  facility  number  (as 
defined  in  the  TSAR  data  structure)  on  the  appropriate  TSARINA 
TGT  cards.  If  the  user  wishes  the  target -dependent  loss 
percentages  to  be  transferred  to  TSAR  for  some  targets,  but  not 
for  others,  the  facility  numbers  for  the  latter  targets  should 
not  be  entered. 

Also,  if  the  user  wants  the  target-dependent  loss 
percentage  to  be  used  for  some  of  the  resources  that  are 
nominally  associated  with  a  particular  facility,  but  not  for 
others  of  those  resources,  the  target -dependent  value  will  be 
overridden  in  TSAR  for  whichever  resources  have  a  specific 
damage  estimate  transmitted  to  TSAR.  Thus,  if  on-duty  radar 
technicians  have  been  located  in  a  variety  of  facilities  for  the 
TSARINA  airbase  attack  simulation,  the  TSARINA  estimate  of 
percent  damage  for  those  technicians  will  normally  be  applied  to 
all  such  personnel  not  engaged  in  on-equipment  aircraft 
maintenance  within  TSAR,  even  though  a  different  personnel  loss 
percentage  is  associated  with  their  normal  work  facility,  and  it 
is  passed  to  TSAR.  To  prevent  the  target -dependent  estimate 
from  being  overridden,  the  user  must  either  not  include  the 
specific  locations  for  these  technicians,  or  specifically 
instruct  TSARINA  not  to  transfer  the  estimate  by  use  of  the  EQUI 
card  format,  as  discussed  later  in  this  section. 

*When  the  damage  to  some,  but  not  all,  resources  is  specified, 
the  dimensions  in  TSAR's  subroutine  BOMB  currently  permit  at  most 
50  damage  specifications  for  each  resource  class. 
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Careful  attention  to  which  targets  are  identified  with  a 
TSAR  facility  number,  and  which  resources  are  located  specifically  in 
TSARINA,  provides  the  user  substantial  flexibility  for 
controlling  the  damage  information  transferred  from  TSARINA  to 
TSAR  and  thereby  representing  his  knowledge  of  expected  on-base 
conditions  in  the  simulation  data  base. 

IDENTIFICATION  OF  AIRBASE  FACILITIES 

Some  airbase  facilities  are  handled  in  an  aggregate  manner 
in  TSAR--aircraft  shelters,  runways,  taxiways,  and  aircraft 
parking  ramps--and  for  these  facilities  the  user  simply 
specifies  the  target-type  number  (on  the  DATA  card,  see  p.  41) 
that  is  used  in  TSARINA  to  designate  these  kinds  of  facilities. 

Other  facilities--those  that  relate  to  specific  maintenance 
functions--are  identified  within  TSAR  with  specific  facility 
numbers,  and  these  facility  numbers  must  be  identified  in 
TSARINA  if  damage  to  these  facilities  is  to  be  communicated  to 
TSAR  from  TSARINA.  The  following  paragraphs  discuss  the 
particular  data  requirements  for  each  of  the  several  target 
classes . 

Runways 

The  maximum  number  of  facilities  that  are  distinguished  in 
TSAR  is  designated  by  the  variable  NOFAC.  By  TSAR  convention, 
the  runway  is  identified  by  that  maximum  number,  i.e.,  NOFAC.* 

For  TSARINA  the  value  of  NOFAC  is  specified  in  the  source  code 
of  the  MAIN  subroutine,  along  with  the  dimensions  of  other  key 
TSAR  arrays.  The  user  should  consult  the  comments  in  the  MAIN 
routine  for  a  description  of  the  particular  TSARINA 
configuration  he  has  available;  if  the  configuration  is  at 
variance  with  his  TSAR  configuration,  changes  to  the  TSARINA 
configuration  are  easily  accomplished. 


*Since  TSAR  is  only  concerned  with  the  repairs  that  are  to 
be  accomplished  to  provide  the  minimum  area  for  flight 
operations,  without  regard  to  which  runway  is  to  be  repaired,  a 
single  datum  is  required. 
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Aircraft  Parking  Ramps 

For  aircraft  parking  ramps,  TSARINA  generates  an  estimate 
for  the  percentage  of  exposed  aircraft  that  are  damaged  by 
computing  the  expected  percentage  of  aircraft  parts  that  would 
be  destroyed,  if  they  were  dispersed  at  random  in  these  areas, 
using  the  rules  given  in  Section  IV  for  specifying  aircraft 
parts  vulnerability.  In  using  this  estimate,  TSAR  first 
subtracts  the  number  of  aircraft  that  could  be  sheltered  from 
the  number  of  aircraft  on  the  ground,  and  assumes  that  the 
remainder  are  unsheltered.  The  survival  of  the  unsheltered 
aircraft  is  then  checked  by  comparing  a  random  number  for  each 
aircraft  with  the  exposed  aircraft  damage  percentage  estimated 
in  TSARINA. 

Taxiways 

For  taxiways  TSARINA  simply  counts  the  number  of 
point-impact  weapons  that  hit  on,  or  within  the  weapon  radius  of, 
these  targets.  The  TSARINA  output  identifies  these  hits  with  the 
TSAR  target  number  for  taxiways.  Hits  on  the  taxiways  are 
communicated  to  TSAR  as  damage  to  facility  number  NOFAC-1. 

Maintenance  Shops 

In  TSAR  each  on-equipment  task  and  parts  repair  job  is 
associated  with  a  particular  shop  or  facility.  If  the  shop  is 
damaged,  the  parts  repair  jobs  and  certain  designated 
on-equipment  tasks  can  not  be  accomplished.  Facilities  #1 
through  # 24  are  reserved  for  the  locations  of  the  various 
specific  maintenance  functions  (i.e.,  work-centers  or  shops) 
that  are  designated  by  the  same  number.  When  the  facility 
number  for  one  of  these  maintenance  functions  is  entered  on  the 
TGT  card  in  TSARINA,  damage  to  that  facility  is  communicated  to 
TSAR. 

Other  facility  numbers  are  reserved  for  other  functions: 

#27  relates  to  aircraft  reconfiguration,  #28  to  munitions 
loading,  #29  to  fuel  servicing,  and  #30  to  munitions  assembly; 
facilities  #31,  #32,  and  #33  are  used  to  define  the  assembly 
points  for  the  flightline  specialists  associated  with  squadrons 


one,  two,  and  three,  respectively,  in  a  AFR  66-5,  or  COMO, 
maintenance  organization.  Damage  to  each  of  these  facilities 
will  also  be  transmitted  to  TSAR  when  their  facility  number  is 
identified  on  the  appropriate  TGT  card. 

When  any  of  these  facilities  sustain  one  or  more  "hits," 

TSARINA  generates  an  estimate  of  the  percentage  of  the  facility 
that  sustains  damage,  as  well  as  estimates  of  the  percentage 
losses  sustained  by  the  personnel,  AGE,  and  parts  present  in  the 
facility  at  the  time  of  the  attack. 

Aircraft  and  Aircraft  Shelters 

TSAR  assesses  aircraft  damage  and  loss  by  drawing  a  random 
number  for  each  aircraft  on-base  at  the  moment  of  attack,  and  by 
comparing  that  number  with  an  estimate  of  the  fraction  of  the 
aircraft  that  are  damaged  and/or  killed.  In  TSARINA  a  damage 
fraction  is  generated  both  for  sheltered  and  unsheltered  aircraft, 
and  TSAR  applies  the  latter  fraction  to  that  number  of  on-base 
aircraft  that  exceed  the  then-current  capacity  of  the  shelters,  as 
noted  earlier. 

Damage  to  shelters  and  sheltered  aircraft  are  handled  uniquely 
in  TSARINA,  in  that  the  damage  estimate  may  be  generated  either  with 
the  Monte  Carlo  mode  (as  for  other  targets)  or  with  the 
expected-value  mode.  The  Monte  Carlo  mode  is  required  if  the 
user  wishes  to  consider  specific  resources  that  might  be  stored 
in  the  shelters;  if  he  does  not  have  that  requirement,  he  may  reduce 
TSARINA  computer  processing  by  use  of  the  expected-value  mode.* 

With  TSARINA  the  user  designates  the  target  type  that  he 
has  assigned  to  shelters  on  the  DATA  card  (see  p.  41),  and 
enters  the  location  and  size  data  for  each  shelter  either  with 
the  TGT  or  TGT2  type  cards ,  depending  upon  whether  the  Monte 
Carlo  or  expected-value  mode  is  to  be  used  for  assessing  damage. 

*Since  TSAR  compares  a  random  number  with  the  damage 
estimate  for  each  aircraft,  losses  will  vary  from  trial  to  trial 
even  though  the  expected  value  mode  is  used.  When  the  Monte 
Carlo  mode  is  used,  the  damage  estimate  used  for  these 
comparisons  will  also  vary  between  trials. 


Weapon  effectiveness  entries  are  also  handled  differently  for 
these  targets.  In  all,  14  different  weapon  effectiveness  data 
may  be  entered;  13  for  each  type  of  weapon,  and  one  that  is 
presumed  to  apply  for  all  weapons.  To  enter  these  data  in 
TSARINA,  14  cards  are  entered  for  each  point -impact  type  weapon, 
rather  than  the  one  or  two  cards  that  are  used  in  AIDA.  The 
entry  on  the  first  card  is  interpreted  as  the  effective  miss 
distance  against  buttoned-up  shelters;  a  hit  is  recorded 
whenever  a  weapon  strikes  within  this  distance  of  a  shelter. 

Data  entered  on  the  second  through  ninth  cards  control  the 
damage  estimates  for  personnel,  AGE,  spare  parts,  munitions, 

TRAP,  and  building  materials  that  might  be  stored  in  the 
shelters  when  a  weapon  strikes  within  the  first  effective  miss 
distance.  The  several  resource  damage  criteria  that  are 
available  are  explained  in  Appendix  A.  When  the  expected  value 
mode  is  used,  only  the  third  through  fifth  of  these  cards  is 
used,  and  the  entries  are  interpreted  as  the  percent  losses 
sustained  by  personnel,  AGE,  and  spare  parts  in  a  shelter  that 
has  closed  doors  when  a  hit  has  been  recorded. 

Four  additional  data  are  entered  on  the  tenth,  twelfth, 
thirteenth  and  fourteenth  EMD  cards;  the  first  defines  the  effective 
miss  distance  against  aircraft  in  a  shelter  with  an  open  door,  the 
next  two  define  the  probability  of  damage  to  an  aircraft  when  the 
shelter  door  is  closed,  and  when  it  is  open,  and  the  last  defines 
the  probability  of  kill  of  the  shelter  itself,  when  a  weapon  strikes 
within  the  first  effective  miss  distance.  The  factor  that  controls 
the  fraction  of  the  damaged  aircraft  that  are  not  reparable  is 
entered  on  the  DATA  card,  as  explained  on  page  41.  This  factor  is 
presumed  to  apply  for  whatever  mix  of  weapons  has  been  used 
in  the  attack. 

The  various  assessments  of  aircraft  and  shelter  damage,  and 
of  the  losses  among  resources  associated  with  the  aircraft  at  the 
moment  of  the  attack,  are  communicated  to  TSAR  as  class  8  and 
class  10  in  a  particular  facility;  the  data  structure  for  these 
transmissions  can  be  inferred  from  the  code  in  subroutine  DAMAGE. 
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PROCEDURES  TO  ENSURE  RESOURCE  CATEGORY  COMPATIBILITY 

A  requirement  for  the  proper  functioning  of  TSAR  and  TSARINA 
is  that  the  level  of  detail  at  which  resources  are  specified  must 
be  the  same  for  both  models.  Although  it  might  be  adequate  for 
some  damage  assessments  for  resource  types  to  be  lumped  into 
broad  categories,  such  aggregate  results  would  not  be  useful  for 
the  simulation  if  these  resources  were  treated  in  more  specific 
terms  in  TSAR.  Thus,  one  cannot  specify  "air-to-air  missile 
losses"  in  the  TSARINA  output  if  TSAR  requires  that  losses  of 
AIM-7s  and  AIM-9s  be  distinguished. 

The  required  consistency  can  be  achieved  in  three  different 
ways.  First,  TSARINA  inputs  may  specify  the  location  data  separately 
for  each  type  of,  say,  munition  that  is  to  be  distinguished 
in  TSAR.  Or,  if  the  user  cannot  distinguish  the  locations  for  some 
types  of  munitions,  he  may  locate  them  as  a  group,  and  then  specify 
that  the  same  damage  should  be  reported  to  TSAR  for  each  type  of 
munition  in  the  group;  the  EQUIvalence  card-format  is  used  for 
this  purpose.  Lastly,  if  the  individual  locations  for  many,  or 
all,  of  the  various  types  of  any  class  of  resources  cannot  be 
distinguished,  the  user  may  locate  these  resources  and  report  their 
common  damage  to  TSAR  by  the  simple  expedient  of  not  specifying 
a  resource  number.  To  clarify  these  options,  consider  the 
following  table: 


Type-Number  Specified  in  Types  Specified  User  Action 
TSARINA  Location  Data  _ in  TSAR _  Required 


1 

3 

4 


0 


1  EQUI  data  card 

2 

3  None 


4 

5 

6 

7 

8 
9 

10 

11 

12 


EQUI  data  card 


None 
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Assuming  that  the  resource  class  is  TRAP,  for  example,  this 
is  how  one  would  handle  the  situation  in  which  the  TSAR  data 
base  distinguished  12  different  types  of  TRAP,  but  location  data 
could  only  be  specified  for  four  different  categories,  and  only 
one  corresponded  to  the  TSAR  data  base,  e.g.,  TRAP  #3.  Location 
data  for  TRAP  #1  and  TRAP  #2,  for  TRAP  #4,  # 5,  and  #6,  and  for 
TRAP  # 7  through  #12  cannot  be  distinguished,  presumably,  for 
this  example.  The  only  special  action  the  user  needs  to  take  is 
to  define  the  actual  types  of  TRAP,  implied  by  the  TSARINA  type 
numbers  1  and  4,  using  the  EQUI  data  cards.  It  should  be  noted 
that  the  numbers  need  not  be  in  any  special  sequence  and  that 
type  #0  always  implies  "all  types  not  otherwise  specified." 

When  dealing  with  personnel  and  munitions,  two  other  special 
features  come  into  play.  The  first  of  these  is  concerned  with  the 
distinction  between  on-duty  and  off-duty  personnel,  which  are 
treated  differently  within  TSAR.  To  indicate  that  a  particular 
category  of  personnel  is  off-duty,  the  number  1000  is  added  to 
the  nominal  personnel  type  when  their  location  data  are  entered.* 
When  this  is  done,  casualties  among  on-  and  off-duty  personnel  are 
estimated  separately  in  TSARINA  and  reported  separately  to  TSAR 
without  any  additional  user  input.  Specification  of  personnel  type 
#1000  implies  all  off-duty  personnel  types  that  are  not 
otherwise  specified. 

The  other  special  number  convention  permits  the  user  to 
distinguish  the  locations  and  damage  to  assembled  and  unassembled 
munitions;  unassembled  munitions  are  identified  simply  by  adding  the 
number  100  to  the  nominal  munition  type  designation.  Thus,  if 
munition  #5  were  assembled  AIM-7s,  munition  #105  would  refer  to 
unassembled  AIM-7s.  These  special  identity  numbers  for  personnel 


*This  feature,  as  currently  implemented,  behaves  as  described 
when  TSAR  is  dimensioned  for  1  to  100  different  personnel  types. 
Defining  that  dimension  as  N0PE0P,  aircrews  are  identified  for 
TSAR  with  the  number  NOPEOP  +1;  thus,  if  NOPEOP  —  100,  aircrews 
are  personnel  type  #101. 


and  munitions  may  either  be  assigned  to  the  resources  when  their 
location  data  are  specified,  or  subsequently,  using  the 
EQUIvalence  card  type. 
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IV.  WEAPON  EFFECTIVENESS  DATA 


For  each  weapon  type  the  user  has  several  options  for 
specifying  its  effectiveness  against  the  various  types  of 
targets  (facilities)  and  against  the  various  resources  that  may 
be  present  at  those  targets.  These  options  are  expressed  by  up 
to  17  data  for  each  target  type  and  for  each  type  of  weapons; 
these  17  data  are  entered  using  the  EMD  card  (see  page  50)  and 
up  to  16  supplementary  cards  for  each  type  of  weapon. 

As  described  more  fully  in  the  AIDA  report,  the  basic 
mathematical  representation  that  is  used  for  the  effectiveness 
of  a  point-impact  weapon  is  what  has  been  called  a  cookie- 
cutter--that  is,  a  uniform  probability  of  kill  over  a  circle 
of  specified  radii.  Integration  of  actual  weapon  effects 
kill  probability  contours  over  the  many  rectangular  targets  was 
rejected  in  order  to  limit  computer  processing.  Although  the 
cookie-cutter  approach  to  representing  weapon  effects  has  been 
retained  in  TSARINA,  an  attempt  has  been  made  to  provide  the 
user  somewhat  greater  flexibility  for  these  approximate  weapon 
effects  representations.  As  developed  below,  there  are  eight 
different  possibilities  provided  for  estimating  losses  for  each 
of  the  different  classes  of  resources,  including  what  might  be 
defined  as  a  two-level  cookie-cutter;  i.e.,  an  inner  circle  with 
a  specified  Pk,  and  an  outer  circle  defined  such  that  the 
average  Pk  is  just  one-fourth  that  for  the  inner  circle. 

POINT  IMPACT  WEAPONS 

For  Each  Target  Type  Except  Aircraft  Shelters 

The  first  and  tenth  data  for  each  target  type  are  the  mean 
radius  of  effectiveness  (Rl)  against  the  structures  of  that  target 
type;  these  data  are  entered  on  the  first  and  tenth  of  the  EMD 
cards.  The  first  entry  applies  to  near  misses  and  the  tenth  to 
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direct  hits;  if  a  radius  is  not  entered  for  direct  hits,  the  first 
data  applies  in  both  cases.  The  TSARINA  results  include  the 
fraction  of  each  target  that  is  covered  by  circles  of  these  radii, 
one  circle  for  each  weapon  delivered;  the  covered  area  is 
interpreted  as  the  percent  of  target  damage.  Entries  on  the 
second  and  eleventh  EMD  cards  are  also  ef fectivesness  radii  (R2); 
the  interpretation  of  these  radii  is  dependent  upon  the  assessment 
criteria  in  use.  The  entries  on  the  third  through  eighth,  and  the 
twelfth  through  seventeenth,  EMD  cards  control  damage  assessments 
of  the  various  resources  in  all  facilities.  These  assessments, 
for  the  various  resource  classes,  depend  upon  damage  factors  that 
are  entered  in  the  following  locations: 


EMD  Card 


Near  Miss 

Direct  Hit 

Resource  Class 

Third 

12th 

Personnel 

Fourth 

13th 

AGE  and  equipment 

Fifth 

14th 

Spare  parts 

Sixth 

15th 

Munitions  and  POL 

Seventh 

16th 

TRAP 

Eighth 

17th 

Building  materials 

As  noted  above,  the  "near  miss"  values  apply  when  data  are 
not  entered  for  direct  hits.  If  any  data  are  entered  for  a 
particular  target  type  on  the  eleventh  through  seventeenth 
cards,  only  data  from  those  cards  will  be  used  in  assessing 
direct  hits;  i.e.,  blank  entries  are  interpreted  as  zero. 

The  values  entered  with  these  12  resource  damage  cards  are 
interpreted  either  (1)  as  effective  kill  radii  against  these 
resources,  (2)  as  probabilities  of  kill  of  such  resources  within 
the  radii  R1  or  R2,  or  (3)  as  a  radius  and  a  kill  probability 
that  jointly  define  a  "two-level"  cookie-cutter,  depending  upon 
the  value  of  the  FLAG  input  described  below. 

Since  munitions  and  POL  would  not  be  expected  to  be 
present  together,  little  flexibility  is  lost  with  the  dual 
definition  used  with  the  sixth  (and  fifteenth!  card;  it  is  impor¬ 
tant,  of  course,  that  the  user  be  clear  as  to  the  distinction. 
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The  interpretations  of  the  weapon  effectiveness  parameters 
on  these  twelve  cards  are  specified  by  the  user  on  the  ninth 
EMD  card-'i.e.,  by  the  value  of  the  variable  called  "FLAG"  in 
the  program. 

The  user  has  eight  options  for  handling  the  vulnerability  of 
each  of  the  six  classes  of  resources,  and  FLAG  communicates 
these  six  choices  with  a  6-digit  code.  These  eight  options 
are  illustrated  below: 


The  eight  weapon  effectiveness  parameter  options  that 
are  identified  by  the  6-digit  code  are  defined  as: 

0  Ignore  this  class  of  resource 

1  Value  represents  probability  of  kill  of  these 
resources  within  a  circle  of  radius  R1 

2  Value  represents  probability  of  kill  of  these 
resources  within  a  circle  of  radius  R2 

3  As  in  2,  given  that  radius  R1  intersects  the  target  perimeter 

4  Value  is  the  radius  of  kill  of  these  resources 

5  Value  is  the  radius  of  kill  of  these  resources, 

given  that  radius  R1  intersects  the  target  perimeter 


The  last  three  values  are  a  combination  of 
a  radius  and  a  probability  of  kill. 

6  Value  is  (1)  the  radius  (times  1000)  of  an  area  within 
which  the  Pk  is  one-fourth  that  value  of  Pk  within  Rl, 

plus  (2)  the  value  of  Pk  within  Rl  (thus  60080,  for  example, 
specifies  that  Pk  is  0.80  within  Rl,  and  0.20  in  the  annular 
area  between  Rl  and  60  feet). 

7  Value  is  the  radius  (times  1000)  of  an  area  within  which 
the  Pk  is  one-fourth  that  value  of  Pk  within  R2,  plus 
the  value  of  Pk  within  R2 

8  As  in  7,  given  that  radius  Rl  intersects 
the  target  perimeter 

Thus  FLAG  =  321475  would  imply  that  the  six  classes  of  resources 
are  to  be  assessed  by  options  3,  2,  1,  4,  7,  and  5,  respectively, 
for  the  particular  weapon  type  and  target  type  for  which  it  is 
listed. 

Aircraft  Shelters 

No  distinction  is  made  between  a  direct  hit  and  a  near  miss 
for  aircraft  shelters;  the  entry  on  the  first  EMD  card  is 
interpreted  as  the  effective  miss  distance  against  aircraft  in 
shelters  with  closed  doors ,  and  the  entry  on  the  tenth  card  is 
interpreted  as  the  effective  miss  distance  against  aircraft  in 
shelters  with  open  doors.  When  shelters  are  handled  with  the 
Monte  Carlo  mode  the  entries  on  the  second  through  ninth  cards 
are  used  to  assess  losses  to  resources  in  a  closed  shelter  in  a 
manner  consistent  with  other  target  types,  as  just  explained. 

When  the  user  does  not  identify  specific  resources  within  the 
aircraft  shelters,  and  they  are  treated  with  the  expected-value 
mode,  the  entries  on  the  third  through  fifth  cards  are 
interpreted  as  the  loss  probabilities  for  personnel,  AGE,  and 
spare  parts  when  a  weapon  strikes  within  the  radius  specified  on 
the  first  card.  In  either  case,  the  probabilities  that  aircraft 
are  damaged  in  closed  and  open  shelters,  and  the  probability 
that  the  shelter  itself  is  lost,  are  given  by  the  entries  on  the 
twelfth  through  fourteenth  cards,  respectively. 
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CBU  MUNITIONS 

The  entries  on  the  first  EMD  card  for  CBU  munitions  specify 
the  reliability  of  the  dispenser  and  the  length  and  width 
of  a  rectangular  pattern  of  bomblets;  the  weapon-type  number 
and  the  number  of  cards  to  be  entered  for  these  weapons  are  also 
specified.  The  user  may  enter  up  to  seven  supplementary  cards  with 
each  EMD  card  for  CBU  munitions.  The  first  supplementary  card  is 
blank,  and  the  entries  on  the  second  through  seventh  supplementary 
cards  are  to  be  interpreted  as  the  percentage  of  the  six  resource 
classes  that  would  be  expected  to  be  lost  if  the  bomblet  pattern 
covered  their  location.  Intermediate  cards  must  not  be  omitted; 
e.g.,  if  only  equipment  and  TRAP  losses  were  of  interest,  two  blank 
supplementary  cards  would  still  have  to  precede  the  third  card 
and  two  more  precede  the  sixth  card. 
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V.  SAMPLE  PROBLEM 

The  layout  of  the  test  base  is  shown  in  Figure  1.  This  base 
consists  of  a  200  ft  x  7000  ft  runway,  a  parallel  taxiway,  two 
connecting  taxiways,  four  shops,  three  aircraft  parking  ramps, 
six  aircraft  shelters,  two  vehicle  parking  areas,  and  four 
barracks.  To  examine  the  effectiveness  of  a  bombing  attack 
against  this  target  complex  with  TSARINA,  one  first  must 
describe  the  target  elements  and  the  attack  in  a  common 
coordinate  system.  Each  target  is  defined  by  its  westernmost 
corner,  its  size,  and  its  orientation;*  the  attack  heading  and  the 
desired  mean  point  of  impact  fix  the  attacks.  For  this 
illustration  four  aircraft  are  assumed  to  attack  each  of  two 
points  on  the  runway  in  an  effort  to  "cut"  it;  in  addition 
three  aircraft  attack  each  of  the  two  sets  of  three  shelters, 
and  three  aircraft  attack  the  complex  of  four  shops.  Each 
attacker  drops  either  18  or  24  bombs  with  a  range  error 
probable  (REP)  and  deflected  error  probable  (DEP)  of  300 
feet  and  150  feet,  respectively.  The  intervalometers  are  set 
for  stick  lengths  between  1500  and  2500  feet. 

Several  different  types  of  resources  are  present  in  these 
facilities  and  are  at  risk  to  the  attack.  Varying  quantities  of 
personnel  and  AGE  are  in  the  four  shops.  In  addition,  several 
types  of  AGE  are  in  the  vehicle  parking  areas.  Many  off-duty 
personnel  are  in  the  barracks.  Several  of  the  aircraft 
shelters  have  TRAP  and  munitions  stored  internally. 

INPUT 

Figures  2  and  3  reproduce  the  card  images  needed  to  describe 
this  sample  problem  and  to  control  the  assessment.  For  clarity, 
the  control  (C0NT)  card,  the  TSAR  data  (DATA)  card,  the  target 
(TGT)  cards,  and  the  attack  (ATT)  cards  are  listed  in  order;  the 

*An  auxiliary  program  is  available  for  converting  dimension  data 
prepared  for  the  MASSIVE  program  (developed  at  Eglin  AFB)  into 
the  format  required  for  TSARINA. 


ZO!  103 
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Sca/e  (-ft) 
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Hodel  Operations  are  Specified  vith  the  CONTrol  card 
COMt  1  0  8  10  1  1  3  0  4250  65  1  0  10  250  TBSTBASE 

The  DATA  card  controls  the  interactions  with  TSAR. 

DATA  005  15  45  2  34  50 


The  tarqet  data  for  these  sample  calculations  are  entered  next. 


TGT 

-2500 

-2000 

7000 

200 

60 

i 

ROMKA  V 

TOT 

-3150 

-880 

70  00 

80 

60 

i 

flAIMTXKY 

TGT 

-3380 

-4  50 

500 

275 

63 

5 

1 

2 

SHOP  *1 

C  1 

1  20 

C  1 

4 

33  C 

2 

2 

10 

C  1 

2  18 

C  1 

3 

35 

TGT 

-2860 

0 

2  75 

450 

60 

6 

2 

1 

SHOP  *2 

C  1 

2  30 

C  2 

3 

25  C 

2 

4 

50 

c 

1 

1 

35 

TGT 

-2390 

150 

425 

300 

60 

5 

3 

1 

SHOP  A  3 

C  1 

1  18 

C  1 

2 

22  C 

1 

3 

43 

TGT 

-2600 

500 

2  SC 

100 

63 

6 

4 

1 

7 

SHOP  *4 

TGT 

-3100 

-960 

75C 

3C0 

60 

4 

RAHP  A 

TGT 

-18  10 

-240 

7  50 

300 

63 

4 

RAHP  B 

TGT 

-3240 

-700 

2250 

200 

60 

4 

RAHP  C 

TGT 

-3650 

a 

900 

300 

60 

7 

1 

PKG  AREA 

C  2 

1  80 

C  2 

2 

30  C 

2 

3 

25 

c 

2 

4 

10 

TGT 

-2000 

550 

500 

275 

60 

7 

1 

PKG  AREA 

C  2 

1  20 

C  2 

2 

50  C 

2 

3 

50 

c 

2 

4 

40 

TGT 

-2950 

-1240 

50 

853 

60 

3 

X  T  A  X  Y  1 

TGT 

2840 

2503 

50 

850 

60 

3 

X  TAXY  2 

TGT 

-200 

9  30 

50 

53 

60 

3 

STUB  1 

TGT 

310 

1013 

SO 

50 

63 

3 

STD  B  2 

TGT 

670 

1430 

50 

50 

60 

3 

STD  B  3 

TGT 

1200 

1530 

50 

50 

60 

3 

STUB  4 

TGT 

1550 

1960 

50 

50 

60 

3 

STUB  5 

TGT 

2070 

2050 

50 

50 

60 

3 

STUP  6 

The  aircraft 

saelter 

lata 

ace  entered 

*  it  h  TGT 

type 

cards 

;  • 

rather  then  TGT2  type  cards,  since  munitions  and  TRAP  are 
stored  in  these  facilties  in  this  example. 


TGT 

-330 

1070 

75 

125 

60 

2 

1 

SHEL 

•  1 

C 

4 

1  0.7 

C  5 

2 

2.9 

TGT 

310 

923 

75 

125 

60 

2 

1 

SHEL 

•  2 

C 

4 

3  3.1 

C  5 

4 

4.3 

TGI 

530 

1583 

75 

125 

60 

2 

SHEL 

•  3 

TGT 

1200 

1435 

75 

125 

60 

2 

1 

SHEL 

•4 

C 

4 

3  3.1 

C  5 

4 

4.  3 

IGT 

1400 

2093 

75 

125 

60 

2 

1 

SHEL 

15 

c 

4 

1  0.7 

C  5 

2 

2.8  0 

4 

2 

0.8  C  5  3  1.2 

TGT 

2090 

1950 

75 

125 

60 

2 

1 

SHEL 

•6 

c 

4 

2  2.8 

C  5 

3 

1.2 

Various  off-duty  personnel 

are 

in 

the  barracks. 

TGT 

3000 

2300 

100 

250 

0 

8 

1 

BABR ACRS 

*201 

c 

1  1000  20 

C  1 

1003 

44 

TGT 

• 

3000 

2600 

1  00 

250 

0 

8 

1 

BARRACKS 

*202 

c 

1  1000  20 

C  1 

1003 

22 

TGT 

- 

2250 

2300 

2  50 

250 

0 

8 

1 

BARRACKS 

*203 

c 

1  1000  20 

C  1 

1003 

34 

TGT 

- 

22  50 

2600 

100 

250 

0 

8 

1 

BARRACKS 

*204 

c 

1  1000  20 

1 

2 

3 

4 

5  6 

7 

8 

1234 56 70901 234 567890 12 345678901 2 345678901234567840 1234 56769012345678901 234567890 


Fig.  2  —  TSARINA  input  -  control  data  and  target  information 
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The  attack  data,  equivalence  data  and  the  weapon 
effectiveness  data  are  entered  last. 


a:t 

3 

90 

-950 

-950 

300 

150 

?s 

55 

29 

2000 

95 

ATT 

3 

90 

1603 

2  SC 

300 

ISO 

75 

55 

29 

2000 

95 

ATT 

2 

60 

-2600 

-1  5C 

300 

ISO 

75 

55 

2V 

2000 

95 

AIT 

1 

60 

-2900 

1  SC 

3C0 

150 

75 

55 

29 

1500 

95 

ATT 

<4 

60 

650 

1550 

300 

ISC 

75 

55 

29 

2500 

95 

ATT 

4 

60 

1310 

19  00 

300 

ISO 

75 

55 

29 

2500 

95 

ATT 

2 

90 

-2500 

2500 

300 

ISO 

75 

55 

29 

2  200 

95 

rhe  equivalence  data 

are 

used  to 

assure  com pa tabi 1 i t y 

of  res 

ource  t  ypes  at 

the 

TSAR-TSAPINA 

l  nter 

face. 

tvUI 

5001 

1 

- 1 

3001 

9 

4 

5 

5009 

1 

1 

101 

Z^UI 

U 

104 

5005 

2 

2 

1 

7 

50  01 

1003 

1003 

1009 

100S 

5001 

2 

101 

0 

Fourteen  cards  are  used  to  input  the  et f ectiveness  data; 
direct  nits  ani  near  hits  are  assessed  with  the  same 
et fectiveness  tactars,  e«cept  for  the  eighth  target  type. 


2)  2 

20  20 

B0 

100 

20  120 

1  50 

ao 

1  10 

140 

40  35 

75 

85 

75 

75  90  80 

55 

28 

15 

15  70  00 

15 

100  80 

35 

24 

26  60  80 

9C 

30 

17 

30 

95 

49 

29 

44 

11 

0 

1  1 

JJJJ3 

7  1 

1 15951231 20222545777 

ICO 

150 

43 

55 

100  80 

69 

90  80 

12 

80  80 

2 

3 

4 

5 

6 

U 39 56  78  90  12 JuSodSUOfr 39  56789  712  34 S67 890 12  3*5  67890 12  39567  89012  39567890 1 2  3*567990 


Fig.  3  —  TSARINA  input  -  attacks  and  weapons  data 
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ordering  of  cards  for  a  given  case  is  generally  immaterial 
except  that  (1)  the  CONTrol  and  DATA  cards  should  be  entered  first, 

(2)  all  supplementary  cards  (used  with  the  TGT,  ATT2,  and  EMD  cards) 
must  be  listed  immediately  following  the  card  that  they 
supplement,  and  (3)  the  EQUI  cards  should  be  entered  as  a  group. 

The  END  card  concludes  the  input  stream  and  specifies  the  end  of 
the  assessment;  alternatively,  a  REDO  card  can  be  entered  to  end 
the  input  for  one  assessment  and  call  for  a  new  case  in  which 
the  attack  is  changed,  or  both  the  target  complex  and  the  attack 
are  changed.  In  this  sample  we  have  not  used  either  the  TGT2  or 
ATT2  type  cards;  the  TGT2  card  types  could  have  been  used  for  the 
aircraft  shelters  if  resources  had  not  been  stored  in  these 
facilities . 

A  careful  review  of  these  entries  along  with  a  reading  of 
Appendix  A  should  lead  to  a  full  and  rapid  understanding 
of  the  various  input  requirements.  The  CONTrol  card  data  specify, 
for  example,  that  ten  trials  are  to  be  computed,  and  the  runway 
availability  is  to  be  based  on  a  65  feet  x  4250  feet  minimum  operating 
surface.  Required  repairs  are  to  be  assessed  (the  1  in  col.  45), 
but  plots  of  the  impact  points  are  not  to  be  generated  (the  0  in 
col.  48).  The  DATA  card  specifies  that  TSAR  is  to  simulate  this 
attack  at  5:45  am  on  the  first  day  at  base  #1.  Aircraft  shelters, 
taxiways,  and  aircraft  parking  ramps  are  to  be  designated, 
respectively,  as  target  types  it 2,  #3 ,  and  #4 . 

As  will  be  noted,  the  shop  number  has  been  entered  in  columns 
53-54  of  the  TGT  cards  for  the  four  shops,  and  the  number  of  cards 
that  are  to  be  used  to  specify  the  resources  that  are  associated 
with  each  target  is  specified  in  columns  68-70,  except  for  shop  iti* . 

Since  100  percent  of  the  on-duty  type  #7  personnel  are  in  shop 
#4,  columns  55-66  on  the  TGT  card  can  be  used  to  locate  this  resource. 
Shop  #1  contains  20  percent  of  the  type  ftl  personnel,  33  percent  of 
the  type  #4  personnel,  and  10  percent  of  the  type  #2  AGE.  The  larger 
vehicle  parking  area  contains  80  percent  of  the  type  «1  AGE.  and  30, 

25,  and  10  percent  of  AGE  types  it 2 ,  it 3,  and  ?<4,  respectively.  The  target 
data  for  the  aircraft  shelters  and  barracks  are  listed  next;  0.7 
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percent  of  the  type  #1  munitions  and  2.8  percent  of  the  type  #2 
TRAP  are  in  aircraft  shelter  #1;  other  shelters  contain  other 
quantities  of  munitions  and  TRAP.  Eighty  percent  of  the  off-duty 
personnel  are  distributed  in  the  four  barracks,  except  for  off-duty 
type  #3  personnel  who  are  located  in  the  first  three  barracks. 

The  ATT  cards  in  Figure  3  specify  the  attack  headings, 
intended  aim  points,  aiming  errors,  ballistic  dispersion,  number 
of  weapons,  bomb  stick  length,  weapon  type,  and  probability  of 
arrival  of  the  attacks.  The  EQUIvalence  cards  enter  instructions 
for  structuring  the  results  to  be  transmitted  to  TSAR.  The  first 
entry  specifies  that  type  #1  personnel  casualties  are  not  to  be 
reported  to  TSAR.  The  second  entry  prescribes  that  the  percentage 
casualties  to  TSARINA  type  # 4  personnel  are  to  be  imposed  on  types 
#4  and  #5  personnel  in  TSAR.  The  next  entry  specifies  that  the 
percentage  losses  sustained  by  type  #1  munitions  are  to  be  imposed 
on  both  assembled  and  unassembled  #1  and  #4  type  munitions  in 
TSAR;  note  that  the  "equivalence"  list  starts  on  the  first  EQUI 
card  and  is  completed  on  the  second.  The  last  entry  on  the  second 
card  specifies  that  the  casualty  percentage  sustained  in  TSARINA 
by  the  #2  type  TRAP  is  to  be  imposed  on  three  TSAR  types  of  TRAP: 

#1,  #2,  and  # 7.  The  third  EQUI  card  specifies  that  the  casualties 
sustained  by  the  off-duty  type  # 3  personnel  should  be  applied  to 
the  #3,  #4,  and  #5  off-duty  personnel  types  in  TSAR.  (Casualties 
among  other  off-duty  types  will  be  controlled  by  the  losses  to  the 
type  #1000  personnel  who  were  located  in  the  barracks.)  The  last 
entry  on  the  third  EQUI  card  specifies  that  the  percentage  loss 
sustained  by  personnel  type  #2  should  be  imposed  on  the  aircrews 
(i.e.,  #101)  at  risk  in  TSAR. 

The  various  weapon  effectiveness  data  are  entered  with  the  EMD 
card  and  its  supplementary  cards.  The  first  entry  specifies  that 
14  cards  are  to  be  used  to  specify  the  weapon  effects  for  this 
weapon.  The  second  and  third  entries  denote  that  the  weapon  is 
type  #1  and  that  its  reliability  is  93  percent.  The  eight  entries 
that  follow  are  the  radii  of  weapon  effects  against  the  eight 
target  types  found  at  the  test  base.  The  first  of  these  specifies 
an  effective  disrupted  radius  of  20  feet  on  runways  (target  type  #1). 


The  same  value  is  indicated  for  the  other  pavement  targets:  e.g. , 
the  taxiways,  aircraft  parking  ramps,  and  vehicle  parking  areas 
(target  types  #3,  #4,  and  #7).  Larger  radii  are  specified  for 
structural  effects  against  the  buildings  (target  types  if 5,  #6,  and  #8). 

The  entries  on  the  first  supplementary  EMD  card  specify  the 
secondary  weapon  effects  radii.  The  role  and  interpretation  of 
these  radii,  and  of  the  factors  on  the  following  six  cards,  are 
determined  by  the  entries  on  the  eighth  supplementary  card,  as 
explained  at  length  in  Appendix  A.  For  example,  the  values  listed 
for  the  sixth  type  of  target  specify  that  personnel  and  munitions 
(or  POL)  that  are  within  a  radius  of  100  feet,  sustain  75  and  17 
percent  losses,  respectively;  i.e.,  their  losses  are  governed  by  the 
first  criterion.  AGE  and  TRAP  (the  third  and  sixth  supplementary 
cards)  are  governed  by  the  second  criterion,  and  15  and  29  percent 
of  these  resources  within  140  feet  of  a  hit  are  lost.  All  spare 
parts  within  140  feet  of  the  burst  sustain  24  percent  losses,  if 
the  burst  was  within  100  feet  of  the  target  boundary  (i.e.,  the 
third  criterion).  No  assessment  is  provided  for  building 
materials  in  the  sixth  type  of  target. 

The  last  three  entries  for  the  second  target  type- -the 
aircraft  shelters--are  the  three  special  factors  that  control 
aircraft  and  shelter  damage  estimates.  The  first  two  numbers  are 
the  probabilities  that  aircraft  that  are  in  the  shelters  at  the 
time  of  the  attack  will  be  killed  (1)  if  the  shelter  is  buttoned 
up  and  a  weapon  strikes  within  the  two  foot  radius  entered  on  the 
first  card,  and  (2)  if  the  shelter  door  is  open  and  a  weapon 
strikes  within  the  100  foot  radius  noted  on  the  tenth  card.  The 
last  of  these  three  entries  specifies  that  there  is  a  12  percent 
chance  that  the  shelter  itself  is  destroyed,  given  a  hit  within  two 
feet  (Rl)  of  the  shelter  walls. 

The  two-level  cookie-cutter  damage  function  is  used  for  target 
type  #8;  when  weapons  fall  outside  the  target,  80  percent  of  the 
personnel,  equipment,  and  parts  within  the  target  are  lost  within  35 
feet  of  an  impact  and  20  percent  (one-forth  of  80)  of  these 
resources  are  lost  within  80,  70,  and  60  feet  from  an  impact, 
respectively. 
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If  the  weapon  hits  the  target,  80  percent  of  the  resources  are  lost 
within  43  feet  of  an  impact,  and  20  percent  are  lost  within 
100,  90,  and  80  feet,  respectively. 

OUTPUT 

The  initial  TSARINA  output  provides  a  record  of  the  input 
data.  The  first  of  these  data,  shown  in  Figure  4,  provides  a 
record  of  all  resources,  including  the  number  and  name  of  the 
target  at  which  the  resources  are  stored.  These  are  followed  by 
the  formatted  title  block  shown  in  Figure  5  that  indicates  the 
values  for  several  of  tne  key  control  parameters.  The 
scheduled  time  of  the  attack,  and  an  indication  of  any 
coordinate  translation  that  was  required,  are  indicated  next. 

Full  particulars  on  the  targets,  attacks,  and  weapon  effects  lata 
conclude  the  input  data  as  shown  in  Figures  5  and  6.  To 
distinguish  aircraft  shelters  from  other  numbered  facilities,  a 
"1000”  is  added  to  the  number  for  each  shelter  to  avoid  ambiguity. 

TSARINA  output  for  each  trial  is  illustrated  in  Figures  7 
and  8,  using  the  results  for  the  eighth  trial.  As  will  be 
noted,  both  the  runway  and  the  main  taxiway  were  hit;  of  the  26 
bombs  that  affected  the  runway,  six  did  not  impact  the  runway 
itself,  but  hit  close  enough  for  the  runway  to  be  within  the 
bomb's  20  foot  radius  of  effectiveness.  Two  of  the  six  aircraft 
shelters  each  received  one  hit;  in  one  case  the  impact  was 
outside  the  target,  but  within  the  2-foot  radius  of  effectiveness. 
The  fractional  losses  of  any  resources  that  were  stored  in  each  of 
these  facilities  are  also  noted. 

The  only  hits  that  affect  the  taxiways,  or  the  stub  taxiways 
in  front  of  the  aircraft  shelters,  were  on  those  stubs;  stub  #1 
sustained  a  direct  hit,  and  stub  #5  sustained  a  near  miss. 

Three  of  the  shops  sustained  several  hits;  the  expected  losses 
to  the  various  classes  of  resources  can  be  noted.  For  shop  -t2,  for 
example,  even  though  5  out  of  the  9  hits  were  external  to  the 
facility,  damage  would  be  expected  to  nearly  70  percent  of  the 
structure,  and  58  percent  of  the  personnel  in  that  facility  are 
estimated  to  be  lost. 
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HESJURCE  STORAGE  DATA 


NUMBER 

NAME 

3 

SHOP  *1 

-3380 

-450 

C  1 

1  200 

C 

1 

4 

3  30 

C 

2 

2 

100 

C  1 

2  100 

c 

1 

3 

350 

4 

SHOP  • 2 

-2860 

0 

C  1 

2  300 

c 

2 

3 

250 

C 

2 

4 

500 

5 

SHOP  «J 

-2  390 

150 

C  1 

1  1  HO 

c 

1 

2 

220 

c 

1 

3 

400 

6 

SHOP  *4 

-2600 

500 

C  1 

7  1000 

10 

PK  AREA 

-  3650 

0 

C  2 

1  800 

c 

2 

2 

3  o: 

c 

2 

3 

250 

11 

PK.i  AREA 

-200C 

550 

C  2 

1  200 

c 

2 

2 

5  00 

c 

2 

3 

500 

20 

Sri  EL  «1 

-  33C 

1070 

C  4 

1  7 

C 

5 

2 

24 

2! 

SHE  L  #2 

3  1C 

•320 

C  4 

3  31 

c 

5 

4 

43 

2  3 

SH  EL  *4 

1200 

U  35 

C  •» 

1  31 

- 

5 

4 

-  3 

24 

S  li  £  L  *5 

1400 

2 

C  4 

1  7 

c 

5 

2 

24 

c 

4 

2 

4 

25 

LriKL  to 

2040 

1450 

C  4 

2* 

c 

5 

i 

12 

26 

DARH  ACK  S 

*2  01 

-  3000 

2  30  0 

0  1 

10C;  20  0 

" 

1 

10  0  i 

440 

27 

8AHPACK  5 

*202 

-  3  000 

2  n  C  0 

2  1 

no:  200 

C 

1 

1003 

120 

23 

d  A  R  r ACK  5 

*20  » 

-2250 

2  300 

C  1 

100'  200 

c 

1 

1003 

34  0 

29 

bARRACK  S 

*20- 

-2250 

2  v.  ?  0 

C  1 

1000  200 

STORAGE 

0?  THE  FESJURCi 

LOCATIONS 

R  E  „•  U I  R  F.  0 

55  LOCATIONS 

IN  T 

HE 

STOCKS  ARRAY 

AN  l  Tri  S 

EjUIVALEN  ; 

E  DATA 

'JSFD  21 

ELEMENT 

s 

OF  Trt 

E  EO’ITV 

ARRAY 

Fig.  4  —  Listing  of  resource  location  data 
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Fig.  5  —  Listing  of  control  and  target  data 
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Fig.  6  —  Listing  of  attack  and  weapons  data 


Fig.  7  —  TSARINA  trial  results 
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Fig.  8  —  Trial  results  of  fractional  losses 


33 


The  fractional  losses  for  all  of  the  resource  types  present  on 
the  base  are  summari2ed  in  Figure  8;  these  results  cumulate  the 
fractional  losses  suffered  by  each  type  of  resource  at  each  of  its 
locations.  These  same  results,  modified  as  required  by  the  EQUI 
cards,  and  summary  data  describing  the  damage  sustained  by  the 
runway,  taxiways,  aircraft  shelters,  and  other  facilities,  are  shown 
at  the  bottom  of  Figure  8,  formatted  for  transfer  to  TSAR.  To 
interpret  these  card  images,  the  reader  should  consult  the 
instructions  for  preparation  of  Input  Card  Type  #40  in  the  TSAR 
User's  Manual. 

The  statistical  results  for  the  ten  trials  are  presented  in 
Figures  9  and  10.  The  first  of  these  figures  provides  an  indication 
of  the  fraction  of  trials  in  which  at  least  one  hit  was  sustained, 
as  well  as  the  expected  number,  and  standard  deviation,  of  hits. 
Comparable  results  are  provided  for  CBU  weapons,  when  they  have  been 
used.  The  results  labelled  "Bomb  Coverage”  are  the  expected 
fractions  of  the  facility  floor-space  that  are  affected  by  the  two 
coverage  radii,  R1  and  R2.  The  average  losses  that  are  sustained  at 
each  target  by  the  six  classes  of  resources  are  listed  on  the  right 
side  of  Figure  9.  A  summary  of  the  runway  closures  and  the  required 
runway  repairs  is  noted  at  the  bottom  of  this  figure. 

Figure  10  presents  the  average  losses  sustained  by  each 
type  of  resource  for  the  ten  trials,  along  with  the  standard 
deviation  of  those  losses.  When  TSARINA  is  used  as  a  general-purpose 
damage  assessment  model,  these  statistical  results  are  the 
primary  output;  they  are  not  transferred  to  TSAR,  since  TSAR  only 
uses  the  trial-by-trial  results  illustrated  in  Figure  9. 
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Fig.  9  —  Statistical  results  of  target  damage 
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Fig.  10  —  Statistical  results  of 
resource  losses 
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Appendix  A 

DETAILED  DESCRIPTION  OF  TSARINA  INPUT 


The  basic  input  cards  employed  with  TSARINA  are: 

CONT  control  card 

DATA  TSAR  data  card 

TGT  target  card;  one  per  target 

TGT2  aircraft  shelter  card;  one  per  shelter  when 
the  expected-value  mode  is  to  be  used 
ATT  attack  card;  one  per  weapon  delivery  pass 
(or  group  of  identical  passes) 

ATT2  alternate  attack  card 

EMD  effective  miss  distance  card;  one  for  each 

weapon  type 

REDO  controls  sequential  cases 

END  terminates  overall  computation 


The  ATT2  card  is  actually  two  cards  in  sequence  and  the  EMD 

card  may  have  up  to  sixteen*  supplementary  cards.  Each  TGT  card  is 

followed  by  as  many  cards  as  are  required  to  specify  the  resources 
# 

located  at  that  target.  A  detailed  description  of  the  entries  for 
each  type  of  card  is  presented  on  the  pages  that  follow. 

Th6  general  arrangement  of  data  on  all  basic  card  types  is 
similar;  the  card  name  is  placed  ( left -ad justed)  in  the  first 
four  columns  and  the  data  are  entered  in  the  eleven  6-column 
fields  between  columns  7  and  72.  All  data  are  read  with  an  16 
format,  i.e.,  they  are  integers,  except  that,  as  will  be  noted 


*Up  to  33  supplementary  cards,  if  there  are  more  than  ten 
target  types. 


fpgrpprm  j*0|  M 
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from  the  descriptions  defining  data  entry,  two  data  are  entered 
in  certain  fields  of  the  CONT  and  DATA  cards  and  on  the 
supplementary  target  cards.  Columns  5  and  6  are  also  used 
on  several  cards,  as  will  be  described.  Furthermore,  the  name 
of  the  target  complex  being  studied  and  a  name  for  each  target 
may  be  included  in  columns  73  through  80  of  the  CONT  and  TGT* 
cards,  respectively;  any  alphanumeric  names  are  acceptable. 

All  linear  dimensions  should  be  in  consistent  units**  le.g., 
feet)  and  the  target  orientation  and  the  attack  heading  entries 
should  be  in  degrees. 

*When  electronic  card  images  are  used,  columns  73  through  88 
may  be  used  for  alphanumeric  target  names  by  entering  a  "l"  in 
column  18  of  the  CONT  card. 

**If  ATT2  cards  are  to  be  used,  all  linear  dimensions 
must  be  in  feet. 


CONT 


The  CONT  card  controls  the  mode  of  operation,  the  choice 
of  random  number  generator,  the  number  of  trials  (attack 
replications),  and  printout  options;  it  also  specifies  the 
minimum  clear  length  (MCL)  and  minimum  clear  width  (MCW)  for 
runway  attack  effectiveness  calculations,  and  controls  runway 
repair  assessment.  This  card  should  be  the  first  card  to  be  entered. 


Columns 


1-4 

6 


8-9 


10-12 

13-15 

16-18 


19-21 


23-24 


Data  Entry 


CONT 

If  unity,  program  computes  resource  damage  levels 
appropriate  for  entry  into  TSAR. 

When  0,  the  seed  for  the  random  number  generator  is 
the  same  for  all  runs.  If  greater  than  0,  the  seed 
is  changed  from  run  to  run;  if  equal  to  -1,  the 
random  number  generator  is  locked  out . 

Number  of  target  types  to  be  entered. 

Desired  number  of  replications.  Default  is  1. 

If  1,  descriptive  data  on  the  CONT  and  TGT 
cards  may  extend  to  column  88,  rather  than 
be  constrained  to  an  80-column  format. 

Controls  printout  options  as  follows:  If  entry  is: 

5  Prints  multiple  trial  statistics  plus  a 
condensed  listing  of  hits  by  trial 
4  Prints  multiple  trial  statistics  plus  a 

condensed  listing  of  runway  status  by  trial 
3  Prints  multiple  trial  statistics  only 
2  All  above  plus  runway  results  for  each  trial 

1  All  above  plus  hit  summary  for  each  trial 

-1  All  above  plus  all  hits  and  target  corners 

-2  All  above  plus  all  impact  points 

Controls  printout  options  for  resource  damage: 

1  Damage  fraction  formatted  only  for  user 

2  Damage  fraction  formatted  only  for  TSAR 

3  Both  formats 


40 


Normally  set  to  zero;  when  initialized 
greater  than  zero,  intermediate  computational 
information  is  output  for  program  test  purposes 
If  set  to  greater  than  7,  the  random  number 
generator  is  locked  out.  See  the  p;  ngrair.  sou-  e 
listing  in  Appendix  C  f o:  the  effect  o!  cthf- 
va 1 ues . 

Minimum  clear  length  (MSI,  tor  airiritt  o  ercrus, 
(fsed  to  test  it  the  runu  ivs  ar<  op*  .  ) 

Minimum  cleir  width  ( M.'W  for  airt.t  aft  opera:  .  ms. 
(Used  to  test  i!  the  runways  ate  ■;  ■  i.  ; 

U  :ieu  the  I'M  r\  is  1  ,  i 
minimum  nutr.bi  :  of  era: 
runway  to  mv;  tie  MCI 

Wh<’I.  t  he  ent  TV  is  , 

t  M 1  ITU  i  : .  d  e ;  i  It;:  . 

pr : i  i  Lou t  option  ent  s y 
t  run.  :■  i  ;  when  •  i.e  et.t  t 
v  :  ded  hi]  eat  i.  i  unw  i;.' 

The.  distance  across  tin  ranw  iv  th.t  t 

runway  rectangle"  is  to  t><  si.  it  tec.  r  ..  .  •  • 

an  adequate  section;  the  default  \  ,i ,  a«  :s 

The  distance  along  the  runway  that  the  minim  rutiu.iv 
rectangle  is  to  be  shifted  in  checking  tot  a*,  adequate 
section;  the  default  value  is  250. 


A  name  can  be  entered  here  for  the  entire  target  complex 
and  it  will  appear  in  the  heading  of  the  output  listing. 
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DATA 


The  DATA  card  controls  the  form  of  the  output  to  TSAR,  defines 
the  time  and  location  of  the  attack,  and  provides  TSARINA  the 
necessary  resource  identity  data  for  communicating  results  to  TSAR. 
This  card  is  not  required  if  the  results  are  not  to  be  used  in  TSAR. 


Columns 


Data  Entry 


1-  4  DATA 

5-  6  If  unity,  statistical  results  are  punched  on 

cards  for  subsequent  processing  and  reorganization 
using  auxiliary  programs. 

12  Enter  the  number  of  trials  for  which  damage  data  and 

resource  loss  data  are  to  be  stored  for  TSAR. 


18  Enter  the  number  of  trials  for  which  card  copies  of 

the  damage  data  and  resource  loss  data  are  to  be  punched. 

24  Number  of  airbase  under  attack  (as  interpreted 

within  TSAR ) . 


29-30  Day  of  attack 

35-36  Hour  of  attack 


41-42 


47  -48 


5  3-54 


59-60 


Minute  of  attack 

Target  type  number 

Target  type  number 

Target  type  number 
ramps 


assigned  to  aircraft 
assigned  to  aircraft 
assigned  to  aircraft 


she  Iters 
taxiways 
parking 


n  1  -66 


Percentage  of  the  aircraft  that  are  damaged 
by  air  attack  that  cannot  be  repaired. 
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TGT 


Each  TGT  card  designates  the  location,  size,  and  orientation 
of  a  rectangular  target. 


Columns 


Data  Entrv 


TGT 


lb-18 


19-24 


25-30 


31-36 


41-42 


The  X-coordinate  of  the  westernmost  earner  oi  the 
target.  If  the  westernmo  . :  corner  o;  any  target 
doe:,  riot  tall  in  the  first  qu  id rant  o?  me  X-Y 
coordinate  system,  TSAKiNA  autoir.it  :  c<t ;  I  y  t  ran.-  lat--s 
the  origin  mult i pi >  .  'Of-  feet  sc  that 

nil  targets  ar>  'in  the  :  i  :  -t  quae:  :■■■.  .  i  •'  aft  -r 

translation,  t  argets  fall  n  'nit  t  he  allowed 

32000  x  32009  area ,  the;,  >r»  "ir  1'  .  tie-  •••; 

that  area  and  user  not  if:  d . 

The  Y-coord  i  na:  of  tin-,  u.-.r.enir  ;«*  <mr;:e:  :  t  h- 

target.  !  •  a  t:-get  1  ic  :ary  rur>  e  I  v  .tor;1,  sc 

the  X  and  V  copd  c  inatei  .  •'  tin-  soutnu  -stem 
shoe 1 d  be  spec ; f  :  ed . 

Target  dimension  along  tie-  boundary  r  :::i;it!t;  north¬ 
east  (or  north  i  from  the  reference  rente r 
specified  in  the  two  pre\  :ous  fit  1 .  i . 

Target  dimension  along  tin  bounder}  tanning  sou: he  a 
(or  east;  iron,  the  roier>"-.'.o  corner. 

Heading  in  degrees  of  the  northeast  ; or  north'  iiead 
boundary  of  the  target  (.along  the  dimension  specif : 
in  columns  19  to  24). 

Target  type.  Targets  may  be  grouped  into  up  to 
10  (or  20)  different  categories  with  like 
vulnerabilities.  This  entry  is  used  in 
conjunction  with  the  effective  miss  distance  on 
the  EMD  card.  Target  type  1  is  restricted  to 
runways  and  taxiways  that  may  be  used  for  flight 
operations;  there  can  be  at  most  5  targets  of 
this  type.  The  user  may  specify  other  target 
types  as  aircraft  parking  ramps,  taxiways,  and 
aircraft  shelters;  if  used  with  TSAR,  the  target 
type  number  selected  to  designate  each  of  these 
target  sets  must  be  entered  on  the  DATA  card.  For 
all  other  targets,  structures  with  materiel  of 
like  vulnerability  can  be  assigned  a  common  target 
type  number;  if  additional  stratification  in 
results  is  desired,  targets  of  like  vulnerability 
may  be  grouped  under  two  or  more  target  types. 
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If  greater  than  zero,  all  hit  locations  will  be  saved 
and  printed  when  the  entry  in  column  24  of  the  CONT 
card  is  zero  or  less. 

Facility  number  as  understood  in  TSAR,  if  the  target 
is  a  maintenance  shop  or  a  flight-line  personnel 
assembly  area  (should  not  be  used  if  the  results 
are  not  to  be  used  in  TSAR) . 

Class  of  resource  stored  in  the  facility,  if  storage 
is  restricted  to  100  percent  of  one  resource  cl-'s, 
or  to  100  percent  of  one  type  of  one  resource  Ciass. 

Type  of  resource,  if  only  one  type  is  stored  in  the 
facility  (all  types  are  inferred  if  blank  or  zero). 

Number  of  subsequent  cards  used  to  describe  the  types 
and  quantities  of  resources  stored  in  this  facility 
(use  only  when  columns  55-66  are  blank). 

Target  descriptions;  columns  73-88  may  be  used  if 
input  is  not  restricted  to  80  columns. 


J 
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SUPPLEMENTARY  TARGET  CARDS 

Each  TGT  card  may  be  followed  by  as  many  supplementary  cards  as 
are  necessary  to  define  the  resources  that  are  located  in  that 
particular  target.  Each  of  these  cards  is  read  with  a  5X, 

5(3X,I2,  15,  F5.0)  format  that  provides  for  five  descriptions 
of  resource  class,  resource  type,  and  percent  at  the  target. 

Entry  of  the  letter  "C"  (for  class'),  preceding  the  resource 
class  (in  columns  7,  22,  37,  52,  and  67),  has  been  found  helpful 
in  reviewing  the  large  data  sets  required  to  represent  a  complex 
airbase  (see  Figure  2). 


Columns  Data  Entry 

9-10  Number  identifying  the  resource  class: 

24-25  1  Personnel  5  TRAP 

39-40  2  AGE  and  equipment  6  Building  materials 

54-55  3  Aircraft  parts  7  POL 

69-70  4  Munitions 

11-15  Number  identifying  which  type  of  the  specified 

26-30  resource  class  is  located  here.*  If  there  is  no 

41-45  entry  for  "type",  all  types  of  the  specified  class 

56-60  (that  have  not  otherwise  been  specified)  are 

71-75  assumed  to  be  present. 

16-20  Percentage  of  the  base  stocks  of  the  specified 

31-35  type  and  class  of  resource  that  are  located  in 

46-50  this  target.  Whole  numbers  are  interpreted 

61-65  as  percentages;  a  decimal  entry  is  required  to 

76-80  specify  tenths  of  a  percent.  The  output  listing 

of  resource  storage  data  is  in  tenths  of  percent; 
e.g.,  273  implies  27.3  percent. 


*The  number  "1000"  added  to  a  personnel  designation  specifies 
off-duty  personnel,  and  "100"  added  to  a  munitions  designator 
specifies  weapons  that  are  not  assembled. 


These  cards  are  used  to  input  the  location  of  aircraft 
shelters  when  resources  are  not  to  be  located  in  the  shelters 
and  the  damage  to  these  targets  is  to  be  estimated  with  the 
expected-value  mode.  The  identification  "TGT2"  designates 
selection  of  this  option.  All  aircraft  shelters  must  be 
handled  in  a  consistent  fashion;  i.e.  their  characteristics  must 
either  all  be  entered  on  TGT  type  cards,  or  all  entered  on  TGT2 
type  cards.  The  inputs  for  the  TGT2  cards  are  identical  with  the 
TGT  cards  for  columns  7-48;  entries  in  columns  49-80  are 
ignored . 


The  ATT  card  specifies  the  parameters  of  each  weapon-delivery 
pass.  Inputs  required  are  the  attack  heading  (measured  from  north 
in  the  coordinate  system  used  to  specify  the  targets),  the  desired 
mean  point  of  impact  (DMPI)  for  a  single  weapon  or  for  the  middle 
of  a  stick  of  weapons,  the  aiming  error  expressed  as  REP  (range 
error  probable)  and  DEP  (deflection  error  probable),  the  ballistic 
error  of  the  individual  weapons,  the  number  of  weapons  to  be 
delivered  in  the  pass,  the  stick  length,  the  weapon  type  (related 
to  the  effective  miss  distance  on  the  EMD  card),  and  the  probability 
of  arrival  at  the  target. 


Columns 

1-3 

5-6 

10-12 

13-18 

19-24 

25-30 

31-36 

37-42 

43-48 

49-54 

55-60 

61-66 


67-72 


Data  Entrv 


ATT 

Total  number  of  passes  with  identical 
characteristics;  default  -  1. 

Attack  heading;  degrees  from  north. 

The  X-coordinate  of  the  DMPI  of  a  single  weapon 
or  the  middle  of  a  stick  of  weapons. 

The  Y-coordinate  of  the  DMPI  as  above. 

The  REP 

The  DEP 

Ballistic  dispersion  in  range  of  individual 
weapons  (R-DISP) . 

Ballistic  dispersion  in  deflection  of 
individual  weapons  (D-DISP) .  Default 
value  is  R-DISP. 

The  number  of  weapons  in  the  stick. 

The  length  of  the  stick  (the  distance  between 
the  first  and  last  weapon  of  the  stick  in  the 
absence  of  dispersion). 

The  weapon  type  (provides  reference  to  the 
appropriate  effectiveness  data).  An 
entry  is  required  (an  integer  from  1  to  10); 
otherwise  hits  will  not  be  recorded. 

Probability  of  arrival  at  target;  default  =  100. 
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ATT2 


The  ATT2  card  should  be  used  in  place  of  the  ATT  card  when  the 
user  wishes  assistance  with  trajectory  calculations.  With  this  card 
the  user  expresses  the  attack  in  terms  of  speed,  altitude,  dive 
angle,  intervalometer  settings,  etc.,  and  a  special  subroutine 
converts  these  inputs  to  those  demanded  on  the  ATT  card.  The  conversion 
procedure  is  the  JMEM/AS  Open-End  Method  Zero  as  outlined  in  the 
Users'  Manual  for  JNEM/AS  Open-End  Methods,  Wang  Labs.,  Inc., 

Tewksbury,  Mass.,  August  1974. 

Both  ATT  and  ATT2  type  cards  may  be  used  in  the  same  run;  the  order 
of  entry  is  of  no  importance.  When  ATT2  cards  are  used,  the  input  data 
will  be  reproduced  as  submitted,  as  well  as  being  tabulated  in  the  normal 
manner,  after  conversion. 

Data  input  with  the  ATT2  procedure  require  two  cards.  The  first 

card  is  labeled  ATT2  in  the  first  4  columns  and  has  input  similar  to 

that  on  an  ATT  card  (all  fields  are  read  with  an  16  format);  a  second 
unlabeled  card  is  mandatory  following  each  ATT2  card.  The  format  for 

both  cards  follows.  When  these  cards  are  used,  all  linear  dimensions 

in  the  input  data  must  be  in  feet. 


Columns  Data  Entry 

1-4  ATT2 


5-6  Total  number  of  passes  with  identical 

characteristics;  default  =  1. 


10-12  Attack  heading  in  degrees  from  north. 

13-18  The  X-coordinate  of  the  desired  mean  point  of  impact 

(DMPI)  of  a  single  weapon  or  the  middle  of  a  stick 
of  weapons. 

19-24  The  Y-coordinate  of  the  DMPI  as  above. 


25-30  The  CEP  in  the  normal  plane  in  mils,  or,  if  DEP  is 

specified,  a  constant  which,  when  divided  by  the  sine 
of  the  impact  angle,  gives  the  REP,  in  mils. 


31-36 


The  DEP  in  mils  (if  omitted,  CEP  controls). 
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37-42  Ballistic  dispersion  in  mils. 

49-54  The  number  of  weapons  in  the  stick. 

61-66  The  weapon  type. 

67-72  Probability  of  arrival  at  target;  default  =  100. 


The  data  format  for  the  second  card  of  each  ATT2  pair  is  as 
noted  below  (this  card  is  used  with  a  6X,  916  format).  Typical 
ballistic  data  required  for  this  card  are  noted  in  Table  A-l. 


Columns  Data  Entry 

7-12  Aircraft  velocity  (kn) . 

13-18  Release  altitude  of  last  bomb  (ft). 


19-24  Dive  angle  at  release  (deg). 

25-30  Terminal  velocity  of  a  low-drag  weapon,  or  the  first 

leg  of  a  high-drag  bomb  (ft/sec)  (See  Table  A-l) 

(VT1  in  JMEM ) . * 

31-36  Terminal  velocity  of  a  cluster  bomblet  or  a  high-drag 

bomb  (ft/sec)  (See  Table  A-l)  (VT2  in  JMEM). 

37-42  Probable  error  in  estimating  and  correcting  for  wind 

effects  (ft/sec). 

43-48  Cluster  opening  time  or  fin  opening  time  for  a 

high-drag  bomb  (msec)  (TD  in  JMEM). 

49-54  Intervalometer  setting  (msec). 

55-60  Dispensor  intervalometer  setting  (msec)  (0  for  clusters). 


^Illustrative  values  are  noted  on  Table  A-l. 


Table  A-l 


TYPICAL  BALLISTIC  PARAMETERS 


Weapon 

VT1 

(fps) 

VT2 

(fps) 

T  or  ! 

H 

Mk-81  Mod  1 

1850 

0 

0 

Mk-81  SE 

1100 

208 

300 

msec 

Mk-82  Mod  1 

1900 

0 

0 

Mk-82  SE 

1200 

240 

350 

msec 

Mk-83 

2250 

0 

0 

Mk-84 

2850 

0 

0 

M-117  Unretarded 

1950 

0 

0 

M-117  Retarded 

900 

168 

300 

msec 

M-118 

2450 

0 

0 

AN-M64A1 

1600 

0 

0 

AN-M65A1 

2000 

0 

0 

Mk-36  DST 

1200 

0 

350 

msec 

CBU-38 

450 

0 

0 

CBU-52B/B 

1000 

230 

Variable 

altitude 

(ft) 

CBU-58/B 

950 

215 

Variable 

altitude 

(ft) 

SOURCE :  Users1  Manual  for  JMEM/AS  Open-End  Methods , 
Wang  Labs,  Inc.,  Tewksbury,  Mass.,  August  1974. 


The  EMD  and  supplementary  cards  provide  information  regarding 
weapon  effectiveness  against  the  several  types  of  targets  and  the 
several  classes  of  resources.  The  formats  of  the  entries  differ 
for  point-impact  weapons  and  for  CBU  munitions,  and  they  differ 
between  aircraft  shelters  and  all  other  target  types.  Normally, 
each  type  of  weapon  will  be  represented  by  up  to  17  cards  (or  34 
cards,  if  11-20  target  types  are  specified  on  the  CONTrol  card), 
although  just  the  first  card,  the  EMD  card,  could  suffice  for 
certain  limited  assessments. 

For  point-impact  weapons  (GP  bombs  or  PGMs)  the  entries 
on  the  EMD  card  are: 


Columns 

1-3 

5-6 


8-9 

10-12 

13-18 


19-24 

o 

o 

o 


Data  Entry 

EMD 

Enter  the  maximum  number  of  cards  that  are  associated 
with  each  target  type  for  this  type  of  weapon. 

Weapon  type  number 

Weapon  reliability  (percentage) 

R1  Radius  of  effectiveness  versus  target  type  #1 
R1  Radius  of  effectiveness  versus  target  type  # 2 


67-72 


R1  Radius  of  effectiveness  versus  target  type  #10 
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The  supplementary  data  for  the  several  target  types  are  located 
in  the  corresponding  fields  on  the  cards  that  immediately  follow 
the  first  card.  Definitions  of  the  data  to  be  entered  on  the  EMD 
card  and  on  the  supplementary  cards  are  noted  below;  somewhat 
different  definitions  apply  for  the  target  type  that  the  user  has 
designated  as  aircraft  shelters,  as  will  be  outlined  shortly. 

Card 
No . 

1  10 

2  11 

3  12 

4  13 

5  14 

6  15 

7  16 

8  17 

9 

The  data  on  cards  1  to  8  apply  in  the  case  of  a  near  miss  and 
those  on  cards  10  to  17  apply  for  a  direct  hit.  If  no  data  are 
entered  for  a  direct  hit,  the  near  miss  inputs  are  used;  if  any 
data  are  entered  for  a  direct  hit,  only  the  values  on  the  tenth 
through  seventeenth  cards  are  used.  Null  entries  are  interpreted 
as  zero. 

If  11  to  20  target  types  are  treated,  a  second  set  of  (up  to 
17)  cards  should  be  placed  immediately  after  the  first  set 
described  above;  these  cards  are  each  read  with  a  12N,  1016 
format . 
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The  appropriate  loss  criterion  for  assessing  resource  damage 
is  controlled  by  the  user  and  is  communicated  with  the  value  of 
the  control  variable  Flag,  which  is  entered  on  the  ninth  card. 

The  value  of  Flag  for  each  target  type  is  a  6-digit  code  UVWXYZ, 
where  U,  V,  W,  X,  Y,  and  Z  express  the  user's  choices  regarding  the 
treatment  of  the  six  resource  classes.  Their  values  are  defined 
from  0  to  8  as : 

0  Ignore  this  class  of  resource 

1  Value  represents  probability  of  kill  of  these 
resources  within  a  circle  of  radius  R1 

2  Value  represents  probability  of  kill  of  these 
resources  within  a  circle  of  radius  R2 

3  As  in  2,  given  that  the  R1  radius  intersects  the 
target  perimeter. 

4  Value  is  the  radius  of  kill  of  these  resources 

5  Value  is  the  radius  of  kill  of  these  resources, 

given  that  the  R1  radius  intersects  the  target  perimeter 

Values  6,  7,  and  8  are  a  combination  of 
a  radius  and  a  probability  of  kill. 

6  Value  is  the  radius  (times  1000)  of  an  area  within 
which  the  Pk  is  one-fourth  that  value  of  Pk  within  Rl, 
plus  the  value  of  Pk  within  Rl 

7  Value  is  the  radius  (times  1000)  of  an  area  within 
which  the  Pk  is  one-fourth  that  value  of  Pk  within  R2, 
plus  the  value  of  Pk  within  R2 

8  As  in  7,  given  that  the  radius  Rl  intersects  the  target 
perimeter. 

Thus,  Flag  -  321475  implies  that  personnel,  AGE,  parts, 
munitions  (or  POL),  TRAP,  and  building  materials  are  to  be  assessed 
by  options  3,  2,  1,  4,  7,  and  5,  respectively,  for  the  particular 
weapon  type  and  target  type  for  which  it  is  listed. 
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The  use  of  the  EMD  cards  is  somewhat  different  for  aircraft 
shelters.  When  the  Monte  Carlo  mode  is  used  to  assess  damage  to 
these  targets,  the  second  through  ninth  EMD  cards  are  interpreted 
the  same  as  for  any  other  target  type.  When  the  expected  value 
mode  is  used,  only  the  third,  fourth,  and  fifth  of  these  cards  are 
used,  and  the  entries  are  interpreted  as  the  damage  probability  to 
personnel,  equipment,  and  spare  parts  when  a  weapon  falls  within  a 
radius  R1  from  the  shelter.  The  other  entries,  noted  below,  are 
interpreted  identically  in  either  mode. 

Card 

No.  Entry 

1  R1  Effective  radius  against  aircraft  in 

shelters  with  closed  doors. 

10  R3  Effective  radius  against  aircraft  in 

shelters  with  open  doors. 

12  Probability  of  aircraft  damage  in  a  shelter 
with  a  closed  door,  when  a  weapon  falls 
within  a  radius  of  R1  from  the  shelter. 

13  Probability  of  aircraft  damage  in  a  shelter 
with  an  open  door,  when  a  weapon  falls 
within  a  radius  of  R3  from  the  shelter. 

14  Probability  the  aircraft  shelter  is  killed 
when  a  weapon  strikes  within  a  radius  of  R1 
from  the  shelter. 


If  the  weapons  are  CBU  type  munitions,  the  following  entries 
are  used  with  the  EMD  and  the  supplementary  cards: 


Columns  Data  Entry 

1-3  EMD 


5-6 


8-9 

10-12 

13-18 


Enter  the  total  number  of  cards  (maximum  =  3)  that 
are  associated  with  the  first  10  target 
types  for  this  type  of  weapon. 

Weapon  type  number 

Weapon  reliability  (percent) 

Enter  CBU  pattern  length  as  a  negative  entry 

Enter  CBU  pattern  width  as  a  positive  entry 


19-24 
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The  supplementary  cards  permit  the  user  to  specify  the 
expected  percentage  loss  of  various  classes  of  resources  when 
they  are  within  the  CBU  bomblet  pattern: 


Card 

No.  Entry 

13-18  Expected  percentage  loss  at  #1  type  targets 

19-24  Expected  percentage  loss  at  #2  type  targets 

o 
o 
o 

67-72  Expected  percentage  loss  at  #10  type  targets 

The  first  supplementary  card  is  blank;  the  others  are  organiEed 
similarly  to  those  for  point-impact  weapons.  That  is,  the  third 
through  eighth  cards  apply  to  personnel,  AGE  and  equipment,  spare 
parts,  munitions  (or  POL),  TRAP,  and  building  materials,  respectively. 
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EQUI 

The  EQUIvalence  cards  are  used  to  achieve  consistency  between 
the  resources  as  defined  in  TSARINA  and  those  defined  in 
TSAR,  when  damage  reports  are  prepared  for  transmission  to  TSAR. 

If  the  resources  are  defined  identically  in  the  data  bases  for 
both  models,  these  cards  are  not  required. 

Resource  equivalence  data  are  entered  using  a  specially 
formatted  data  string.  The  order  of  the  data  entered  is:  (1)  the 
resource  class,  (2)  the  TSARINA  resource  type  designator  for  which  the 
equivalencies  are  defined,  and  (3)  the  TSAR  designators  of  the 
resource  types  for  which  the  percentage  losses  are  to  be  equated 
to  those  of  the  designated  TSARINA  type.  The  numbers  defining  the 
resource  classes  are  distinguished  in  the  data  string  by  addition 
of  the  number  5000. 

If  several  TSAR  resources  are  to  be  assigned  the  same 
TSARINA  damage  percentage,  each  of  their  numbers  should 
immediately  follow  the  number  for  the  equivalent  TSARINA 
resource.  If  necessary,  the  designator  list  can  be  continued  on 
a  subsequent  card  image  when  the  eleven  data  fields  are  full;  the 
list  is  terminated  either  by  a  null  entry  or  by  another  resource 
class  designator.  However,  the  equivalence  card  cannot  be  used  to 
equate  a  TSARINA  resource  designation  to  a  type  #0  resource  to 
signify  "all  types  not  otherwise  specified"  for  TSAR;  to  take 
advantage  of  that  option,  the  TSARINA  resource  designation  should 
itself  be  #0  (see  p.  13).  If  the  first  entry  following  the 
TSARINA  designator  is  -1,  the  TSARINA  damage  estimate  for  that 
resource  is  not  reported  to  TSAR. 


EQUI  5003  5  1  3  5  7  5003  6  2  4  6 

EQUI  10  12  0 


In  this  example,  the  first,  third,  fifth,  and  seventh  types 
of  aircraft  spare  parts,  as  defined  for  TSAR,  are  to  be  assigned 
the  damage  level  assessed  for  the  fifth  type  of  spare  part  in 
TSARINA;  similarly,  the  second,  fourth,  sixth,  tenth,  and  twelfth 
TSAR  spare  parts  are  assigned  the  damage  level  assessed  for  the 
sixth  type  of  spare  part  in  TSARINA. 

EQUI  5001  7  -1 

In  this  case,  estimates  of  casualties  suffered  by  type  ;>7 
personnel  are  not  to  be  reported  to  TSAR. 

A  final  complication  is  introduced  for  differentiating 
between  on-duty  and  off-duty  personnel,  and  between  assembled  and 
unassembled  munitions.  TSAR  personnel  designators  with  values 
less  than  1000  refer  to  on-duty  personnel;  off-duty  personnel  are 
specified  by  adding  1000  to  their  normal  designator.  Note  that 
types  0  and  1000  refer,  respectively,  to  all  on-duty  and  off-duty 
personnel  not  otherwise  specified.  Unassembled  munitions  are 
designated  by  adding  100  to  the  nominal  munition  designation. 


REDO 


The  REDO  card  is  used  to  terminate  the  input  for  one  case  and 
initiate  a  new  case  with  some  or  all  of  the  previous  inputs,  as 
described  earlier. 


•  Columns 


Data  Entry 


1-4  REDO 


7-12 


13-18 


19-24 


All  targets  will  be  retained  unless  the  entry  is 
unity  (1);  in  that  case  a  new  set  of  targets  and 
a  new  set  of  attacks  are  required. 

The  number  of  prior  attacks  to  be  retained 
when  the  targets  are  not  changed.  Each  attack  is 
numbered  in  the  order  in  which  it  is  entered; 
the  attacks  retained  are  selected  from  the  top 
of  that  ordered  list.  All  will  be  retained  if 
there  is  no  entry.  Use  a  negative  entry  (-1)  if 
none  are  to  be  retained. 

An  entry  of  unity  (1)  suppresses  the  input  listings  for 
targets  and/or  for  attacks  and  weapons  if  no  changes 
have  been  made  in  these  data  sets  from  the  prior  case. 


L 
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END 


An  END  card  must  be  included  at  the  end  of  all  data  entry 
cards . 

Columns 
1-3 


Data  Entry 
END 


Appendix  B 


DEFINITIONS  OF  VARIABLES  AND  ARRAYS  USED  IN  TSARINA  "COMMON"  STATEMENTS 


Key  Variables 

ACLOSS 

The  percentage  of  damaged  aircraft  that  are 
not  reparable. 

ALLMC 

Switch;  internally  set  to  unity  when  aircraft 
shelters  are  handled  with  the  Monte  Carlo  mode. 

BASE 

The  number  of  the  airbase,  in  TSAR,  at  which 
the  attack  occurs . 

CHANGE 

Switch;  set  to  unity  between  cases  when  the  target 
data  are  to  be  changed. 

DAY 

The  day,  during  the  TSAR  simulation,  on  which  the 
air  attack  is  presumed  to  occur. 

HOUR 

The  hour,  during  the  TSAR  simulation,  during 
which  the  air  attack  is  presumed  to  occur. 

INL 

Distance  along  the  runway  the  "minimum  runway  rectangle" 
is  shifted. 

INTSAR 

Switch;  set  to  unity  when  results  are  to  be 
generated  for  TSAR. 

INW 

Lateral  distance  the  minimum  runway  rectangle  is  shifted 
in  checking  for  an  adequate  section. 

I  SAVE 

Switch;  set  to  unity  if  resource  damage  results  are 
to  be  generated  for  the  auxiliary  FORMATER  program. 

ITRIAL 

Number  of  the  current  trial. 

KCBU 

Switch;  set  to  unity  if  any  weapons  are  CBUs. 

KPT  I 

Switch;  set  to  unity  if  any  weapons  are  the  point-impact 
type. 

KTEST 

Index  controlling  variety  of  debugging  printout  options. 

LAST 

Switch;  set  to  unity  for  last  case. 

Switch;  when  set  to  unity,  target  and/or  attack  input  lists 
are  suppressed  when  unchanged. 


i 


LIST 
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MCL 

MCR 

MCW 

MINUTE 

MODE 

MTT 

MX ITEM 
NA 
NAM 
ND 

NHITD 

NJMEM 

NOAGE 

NOEQUI 

NOFAC 

NOMATL 

NOMUN 

NOPART 

NOPEO 

NOPEOP 

SOPOL 


Minimum  adequate  length  for  required  runway. 

Switch;  set  to  unity  when  runway  availability  is 
to  be  checked. 

Minimum  adequate  width  for  required  runway. 

The  minute,  during  the  TSAR  simulation,  at  which 
the  air  attack  is  presumed  to  occur. 

Index  controlling  mode  of  operation. 

Largest  target-type  number  in  the  target  array. 

Maximum  number  of  entries  in  the  STOCKS  array. 

Total  number  of  weapon-delivery  passes. 

Maximum  permissible  number  of  weapon-delivery  passes. 

Number  of  types  of  weapons  in  overall  attack. 

Switch;  set  to  unity  when  the  expected-value  mode, 
is  specified. 

Number  of  weapon-delivery  passes  that  require 
trajectory  calculations. 

Maximum  number  of  entries  in  the  AGE  array;  one 
greater  than  the  size  of  the  AGESTK  array  in  TSAR. 

Maximum  number  of  entries  in  the  EQUIV  array. 

Maximum  number  of  entries  in  the  FACLTY  array  in  TSAR 

Maximum  number  of  entries  in  the  MATERL  array;  one 
greater  than  the  corresponding  TSAR  array. 

Maximum  number  of  entries  in  the  AMMO  array; 

101  units  greater  than  the  MUNSTK  array  in  TSAR. 

Maximum  number  of  entries  in  the  PARTS  array; 
one  greater  than  the  corresponding  TSAR  array. 

Dimension  of  PEOPLE  array  in  TSARINA; 
equals  (2*N0PE0P  +2). 

Maximum  number  of  entries  in  the  PEOPLE  array  in  TSAR 

Maximum  number  of  entries  in  the  POL  array. 
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NOTRAP 

NPLOT 
N PR I NT 
NREDO 
NREP 

NSAVE 


NSM 

NST 

NSTAT 

NT 

NT2 

NTM 

NTRIAL 

PDAM 

PUNCH 

RAMPS 

REPAIR 

SHELT 

TSAR 

TXWYS 


Maximum  number  of  entries  in  the  TRAP  array; 
one  greater  than  the  corresponding  TSAR  array. 

Switch;  set  to  1  or  2  if  runway  impact  plots  are  desired. 

Index  controlling  results  output. 

Switch;  set  to  unity  if  an  additional  case  is  specified. 

Switch;  set  to  unity  when  repair  requirements  are 
to  be  assessed. 

The  number  of  weapon-delivery  passes  saved  from  one 
case  to  be  used  in  the  next  case. 

Number  of  targets  to  be  retained  for  a  subsequent  case. 

Number  of  weapon-delivery  passes  to  be  retained  for  a 
subsequent  case. 

Total  number  of  aircraft  shelters. 

Maximum  number  of  targets  for  which  hits  can  be  stored. 

Cumulative  number  of  trials  in  which  the  minimum  runway 
was  available. 

Total  number  of  targets  entered  using  the  TGT  cards. 

Total  number  of  targets  entered  using  the  TGT2  cards. 

Maximum  permissible  number  of  targets. 

Total  number  of  trials  specified. 

Switch;  position  controls  output  formats  for 
trial-to-trial  damage  summaries. 

When  greater  than  zero,  output  for  TSAR  is  card-punched. 

Target-type  chosen  to  designate  aircraft  parking 
aprons  and  ramps . 

The  minimum  number  of  crater  repairs  required  to 
clear  the  minimum  area  for  flight  operations. 

Target-type  chosen  to  designate  aircraft  shelters. 

When  greater  than  zero,  output  for  TSAR  is  stored  on  disk. 

Target-type  chosen  to  designate  taxiways. 


62 


KEY  ARRAYS 

All  arrays  listed  in  labeled  Common  in  TSARINA  are  defined 
below.  The  first  seven  arrays  store  data  pertaining  to  AGE  and 
equipment,  munitions,  building  materials,  aircraft  spare  parts, 
personnel,  POL,  and  TRAP,  respectively.  The  definitions  shown 
below  the  array  names  are  the  same  for  all  of  these  arrays. 

AGE (I , J) 

AMMO (I , J) 

MATERL(I.J) 

PARTS ( I , J ) 

PEOPLE (I , J) 

POL(I , J) 

TRAP(I , J) 

I  =  Resource  subcategory 

J  =  1  Pointer  to  the  location  in  the  STOCKS  array,  where  the 
first  quantity  of  this  resource  is  stored. 

2  Cumulative  losses  at  all  targets  where  this  resource 
is  stored. 

3  Square  of  the  cumulative  losses. 

4  Pointer  to  the  location  in  the  EQUIV  array,  where 
the  first  equivalent  TSAR  resource  category 
designations  are  stored. 


ATT(I.J) 

I 

J  =  1 
2 

3 

4 

5 


Storage  array  for  weapon-delivery  data. 

Weapon-delivery  pass  number;  numbered  internally  in 
order  of  entry. 

Heading  (deg). 

X-coordinate  of  desired  mean  point  of  impact. 
Y-coordinate  of  DMPI . 

Range  error  probable  of  DMPI. 

Deflection  error  probable  of  DMPI. 
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6  Dispersion  in  range  (ground  plane). 

7  Number  of  weapons  released  in  pass. 

8  Length  of  stick  (in  ground  plane). 

9  Weapon  type. 

10  Dispersion  in  deflection. 

11  Probability  attacker  arrives  at  target. 

CBUHT(J,K)  Impact  coordinates  of  the  centroid  of  the  Jth  CBU 
pattern. 

K  -  1  X-coordinate . 

2  Y-coordinate . 

COV(L)  Fraction  of  target  L  covered  by  one  or  more  CBU  patterns 

C0V2(I , J) 

J  =  1  Expected  number  of  weapons  that  impact  within  R1 
feet  of  aircraft  shelter  "I". 

2  Expected  number  of  weapons  that  impact  within  R2 
feet  of  aircraft  shelter  "I". 

EMD(I,J,K)  Weapon  effectiveness  data. 

I  Weapon  type. 

J  Target  type. 

K  =  1  Effective  miss  distance  R1  for  a  near  miss. 

2  Effective  damage  radius  R2  for  a  near  miss. 

3  Personnel  damage  factor  for  a  near  miss. 

4  Equipment  damage  factor  for  a  near  miss. 

5  Aircraft  spare  parts  damage  factor  for  a  near  miss. 

6  Munitions  damage  factor  for  a  near  miss. 

7  TRAP  damage  factor  for  a  near  miss. 

8  Building  material  damage  factor  for  a  near  miss. 


9  Coded  Flag  defining  the  criteria  for  assessing 
resource  damage. 

10  Effective  miss  distance  R1  for  a  direct  hit. 

11  Effective  damage  radius  R2  for  a  direct  hit. 

12  Personnel  damage  factor  for  a  direct  hit. 

13  Equipment  damage  factor  for  a  direct  hit. 

14  Aircraft  spare  parts  damage  factor  for  a  direct  hit. 

15  Munitions  damage  factor  for  a  direct  hit. 

16  TRAP  damage  factor  for  a  direct  hit. 

17  Building  material  damage  factor  for  a  direct  hit. 

EQUIV(NOEQUI)  Used  to  store  the  resource  designators  to  be 
used  for  reporting  damage  to  TSAR. 

FACLTY(I)  Used  to  store  the  TSAR  facility  number  for  those 

structures  whose  damage  is  to  be  reported  to  TSAR. 

HIT(I,J,K)  Storage  array  for  hit  locations  on  specified  targets. 

I  Ith  of  those  targets  for  which  hit  data  are 

to  be  stored. 

J  =  1  X-coordinate . 

2  Y-coordinate . 

3  Weapon  type. 

K  Number  of  hits  on  the  1th  target. 

HITR(I,J,K)  Storage  array  for  hit  locations  on  type  #1  targets 
(i.e.,  runways  and  taxiways). 

I , J ,K  See  HIT(I , J,K) . 

IR(N)  Switch;  set  to  unity  if  the  Nth  weapon-delivery  attacker 

fails  to  reach  target. 

IZ(I)  Designates  the  zone  for  each  target  (see 

subroutine  TGTZON) . 


IZONE(K.J) 

J  =  1 
2 

MHIT(K) 

MSTAT(J) 

J  =  1 

2 

3-8 

MTYPE(l) 

NAME (I, 4) 

I 

NCBtJ(L) 

NHIT(L) 

NRW(I) 

OHIT(I) 

P(L,K) 

K  =  1 

2 


Denotes  which  of  the  ordered  targets  fall  in 
the  Kth  target  zone. 

Lowest  numbered  target  in  the  Kth  zone. 

Highest  numbered  target  in  the  Kth  zone. 

Target  number  of  the  Kth  target  for  which  hit  location 
data  are  to  be  stored. 

Storage  array  for  accumulating  trial  results  of  runway 
availability  tests. 

Minimum  number  of  repairs  required  to  open  a  minimum 
runway . 

Square  of  J  =  1,  above. 

Not  used. 

Index  that  specifies  whether  or  not  supplementary  data 
are  to  follow  the  EMD  card  for  weapon  type  I. 

Stores  either  a  two-word  or  four-word 
alphanumeric  name  for  each  target. 

Target  number 

Number  of  CBU  weapon  patterns  that  cover  all  or  part 
of  target  L. 

Number  of  hits  on  target  L;  by  both  point-impact  and 
CBU  weapons . 

Target  number  of  the  Ith  runway  entered. 

Counts  near  misses  for  each  target. 

Damage  estimates  for  targets  handled  with  the 
Monte  Carlo  mode. 

Expected  fraction  of  target  L  that  is  within  the 
radius  R1  of  point-impact  weapons. 

Expected  fraction  of  target  L  that  is  within  the 
radius  R2  of  point-impact  weapons. 


3 


Fraction  of  personnel  casualties  expected  at  target  L. 
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4  Fraction  of  equipment  losses  expected  at  target  L. 

5  Fraction  of  spare  parts  losses  expected  at  target  L. 

6  Fraction  of  munitions  (or  POL)  losses  expected 

at  target  L. 

7  Fraction  of  TRAP  losses  expected  at  target  L. 

8  Fraction  of  building  material  losses  expected 

at  target  L. 

P2(L,K)  Damage  estimates  for  aircraft  shelters. 

K  =  1  Expected  fraction  of  target  L  within  radius  R1  of 
the  weapon  impacts. 

2  Expected  fraction  of  target  L  within  radius  R2  of 
the  weapon  impacts. 

3  Probability  that  a  sheltered  aircraft  is  damaged  when 

the  shelter  door  is  closed. 

4  Probability  that  the  shelter  is  killed. 

5  Probability  that  a  sheltered  aircraft  is  damaged  when 

the  shelter  door  is  open. 

6  Fraction  of  personnel  casualties  expected  at  target  L. 

7  Fraction  of  equipment  losses  expected  at  target  L. 

8  Fraction  of  spare  parts  losses  expected  at  target  L. 

SHEL(N)  The  TSARINA-generated  target  number  for  the 

Nth  shelter. 

STAT(L,J)  Storage  array  for  accumulating  trial  results. 

L  Target  number. 

J  =  1  Number  of  hits  by  point- impact  weapons. 

2  Square  of  J  =  1,  above. 

3  Trials  with  at  least  one  hit. 

4 


5 


Fractional  coverage  by  CBL  weapons. 
Square  of  J  =4,  above. 
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6 

7 

8 
9 

10 

11 

12 

13 

STAT2CI ,J) 

I 

J  =  1 

2 

STOCKS (I ,J) 
J  =  1 
2 

3 

TGT(L, J) 

L 

J  =  1 
2 

3 

4 

5 


Fractional  target  coverage  within  radius  R1  of 
point- impact  weapons. 

Fractional  target  coverage  within  radius  R2  of 
point- impact  weapons. 

Fractional  personnel  casualties. 

Fractional  equipment  losses. 

Fractional  spare  parts  losses. 

Fractional  munitions  losses. 

Fractional  TRAP  losses. 

Fractional  building  material  losses. 

Storage  array  for  accumulating  trial  results  for  targets 
of  a  given  type. 

Target  type. 

Fraction  of  the  targets  of  type  I  that  received  at 
least  one  hit. 

Square  of  J  =  1,  above. 

Resource  storage  location  infomation. 

Target  number  at  which  resource  is  located. 

The  percent  of  the  resource  stored  in  this  location 
(in  tenths  of  percent). 

Pointer  to  next  target  with  the  same  type  of  resource. 
Storage  array  for  target  data. 

Target  number;  numbered  internally  in  order  of  entry. 
X-coordinate  of  westernmost  corner  (#1). 

Y-coordinate  of  corner  #1. 

X-coordinate  of  corner  #2. 

Y-coordinate  of  corner  if 2. 

X-coordinate  of  corner  it 3. 


r 

f 

\ 

t 

\ 


w 


6 

7 

8 
9 

10 

11 

12 

13 

14 

TGT2 (L, J) 
L 

J  =  1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 
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Y-coordinate  of  corner  #3. 

X-coordinate  of  corner  #4. 

Y-coordinate  of  corner  #4. 

Heading  of  northeast  target  leg. 

Target  type. 

Switch;  hits  stored  when  reset  to  unity. 

Dimension  of  northeast  target  leg. 

Dimension  of  southeast  target  leg. 

Facility  number  of  target. 

Storage  array  for  aircraft  shelter  data. 

Target  number;  numbered  internally  in  order  of  entry. 
X-coordinate  of  westernmost  corner  (#1). 

Y-coordinate  of  corner  #1. 

X-coordinate  of  corner  #2. 

Y-coordinate  of  corner  #2. 

X-coordinate  of  corner  #3. 

Y-coordinate  of  corner  #3. 

X-coordinate  of  corner  #4. 

Y-coordinate  of  corner  #4. 

Heading  of  northeast  target  leg. 

Target  type . 

Switch;  hits  stored  when  reset  to  unity. 

Dimension  of  northeast  target  leg. 


14 


Dimension  of  southeast  target  leg. 
Facility  number  of  target. 


TO (I , J) 

I 

J  =  1 
2 

WPNRELd  ) 


Target  order  array  in  which  targets  are  ordered 
according  to  increasing  values  of  the  sum  of  the 
coordinates  of  the  western  corner. 

Ith  target  in  the  ordered  array. 

Value  of  (X+Y)  for  the  1th  ordered  target. 

Number  of  the  target  as  initially  entered. 

Reliability  of  weapon  type  I. 


70 


Appendix  C 

TSARINA  SOURCE  CODE  AND  COMMENTS 


i . 
?. 

4. 

5  . 

6  . 
7. 

fl. 

5  • 

10. 
1  4  . 

12. 
1  3. 
14. 
1  5. 
1  to  . 

1  7. 
1  8  . 
1  «. 

2  C. 
2  1  . 
22. 

2  3. 

24. 

25. 
?fc. 
7  7. 

?a. 

24  . 
30. 

3  1  • 
32  . 
3  3. 
14  . 
35. 
34  . 
3  7. 

3  P  • 
34. 

4  C  • 
4  l  . 
42. 
4  3. 
44. 
46. 
4  to  . 
4  7. 

4  B  . 
45  . 
60. 

51. 

52. 

53. 
54  . 

55. 

56. 

5  7  . 

5  P  • 

54. 
60  . 
uA  • 
67  . 

63. 

64. 

65. 

66. 
67. 
66  • 
64. 

70. 

71. 

72. 

73. 

74. 


! 


c 


c 

// 

// 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 

c 

r. 

c 


c 


c 

c 

c 

c 


c 

c 

c 

r. 

c 

c 


c 

c 

f. 

f. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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MAIN  -  TSARINA  -  AIRBASE  DAMAGE  ASSESSMENT  INPUTS  FOR  TSAR. 

IMPLICIT  INTEGER  *2  (A-Z) 

INTEGER  *4  MSTAT.  NBA SE I «  NBASE2 
REAL  *4  STAT 

THE  FOLLOWING  JCL  INSERTS  TSARINA'S  COMMON  "BASIC" 

DO  DSN=*. STEP1. COMMON, DiSP^SHft 

DO  *,DCB*BLK$UE  =  0OO 

*******  "BASIC"  COMMON  IS  STORED  IN  T SAR I N . COMMON  ************ 

FILE  AS  "SAVE  TSAR  I N. COMMON  REP  CARD  (101" 

I NTEbER*  4  NAME,  end 

REAL  *4  P,  P  2 ,  COV,  C0V2,  WPNREL 

COMMON  /BASIC/  N AMfc (  500 . 4 ) , P t  5 30 • 8 1 • P2 ( 1 JO , 8  I , COV 4  500  I , 

X  EMD4 10.20, l 71 ,  MTYPE(IO).  COV2(10O,2»,  WPNREL(IO), 

X  12(5001.  NT.  TGT( 500 , i 4 ) ,  NT2,  T GT 2 ( 100 , 1 3 » .  SHEL1I00I, 

X  NA.  ATT (50,  III,  NO,  NTM ,  NSM,  NAM,  MTT,  NST  .  ALLMC, 

X  MODE.  KTEST ,  .NPRINT,  PUAM,  NREDO.  MC  R ,  MCL .  MC W ,  NRW15I, 

A  NAMES.  LAST,  BASE.  DAY,  HOUR.  MINUTE,  ACLOSS. 

X  INTSAR,PEPM«.FACLTY<5001  ,NGF  AC  .  SPEC  .SHELT  ,TXWY  S  .  RAMPS  , 

X  TQ(  500,2)  ,  I  ZONE  t  100 , 2 ) ,  NHIT(500),  nHlT1500l»  MHIT(20I, 

X  HIT (20, 3 v 25),  HI TR( 5,3.2501  .  NCBU(5C0I 

•v.e***.************************************ ****** ************ 

THE  LINEAR  ARRAY  • 10  ,  AND  THE  2  ZEROING  LOOPS,  BELOW,  MUST 
BE  REO JMENS  ICNEO  IF  ANY  PART  OF  TrtE  COMMON  'STORES'  IS  CHANGED. 

***♦  NOTE  THAT  ALL  ENTRIES  ARE  *4  EXCEPT  'STOCKS' 

************************************************************** 

INTEGER  *4  MX  ITEM, NJPEO, NOAGE.NCP ART, NOMUN , NOTRAP , NO M A H ,N0P3L 
INTEGER  *4  PEOPLE.AGE.PARTS.AMMC.TRAP.MATERL. pcl.noeoui, nopecp 
COMMON  /STORES/  MX  I T EM, NOPEG. N OAGE , NCPART , NOMUN . NOTRAP , NOMATL , 

X  NOPGL.NOECUI ,NOP EOP . PEOPt E( 202 .4 1 , AGE ( 10 L . 4 1 , P ART S ( 40 1 . 4 1 , 

X  AMMO ( 126, 4  I. TRAP (26, 4  I , MATE RL ( 26 , 4 1 , POU 10,41 , STOCKS ( I 000. 31 , 

X  E0UIV(4J0I 

************************************************  ************** 

CUMMON  /STATS  /  ST AT (  500 . I  7 ) , M STA T  (  8  1  .NT P I AL . I TR I AL , NST AT 
COMMON  /CONTRL/  NRE P . NPLC T , I NW , INL , CHANGE , NS AVE . L I  ST , N JMEM 
COMMON  /OUTPUT/  TSAR,  PUNCH,  NBAS  El ,  NBASE2 

THE  CBU  CODE  IS  LIMITED  TO  200  CLUSTER  BOMBIET  CONTAINER  IMPACTS 

COMMON  /CBUHIT/  CBUHT ( 200 , 2 1 ,  IR(53I,  KCBU,  KPTl 

************************************************************** 

DIMENSION  Z0<7402» 

E  GUI  V  ALENCE  ( 20 (  i  I  ,  MX  ITEM  1 

************************************************************** 

NTM  =  500 

*«**«  NTM  IS  THE  MAXIMUM  NUMBER  OF  TARGETS  *♦**• 

ARRAYS?  TGT,  TO,  NHlT,  OHlT,  P,  COV,  NAME,  NCBU.  STAT, 

FACLTY,  12 

NT2M  »  100 

*****  NT2M  IS  THE  MAXIMUM  NUMBER  OF  SHELTERS,  WHEN  THEY  ARE  AGGRAGATED 
ARRAYS:  TGT  2,  P2,  CCV2,  SHEL  (SEE  ALSO  EHIT1  IN  EXPHIT* 

NAM  *  50 

*****  NAM  IS  THE  MAXIMUM  NUMBER  OF  ATTACKS 
ARRAYS:  ATT,  IR 

NST  *  20 

*****  nst  IS  THE  NUMBER  OF  TARGETS  FUR  WHICH  HITS  CAN  BE  STCREO. 
ARRAYS:  HIT,  MHIT 

*****  JO  CHANGE  ANY  OF  THE  PRECEDING  DIMENSIONS,  MAKE  THE  APPROPRIATE 
*****  CHANGES  IN  THE  ARRAYS  ANO  THEN  CHANGE  THE  LIMITING  VALUE, 


THE  OUTPUTS  FOR  TSAR  MAY  BE  PRINTED,  PUNCHED  ON  CARDS  ANO  FILED 
OIRECTLY  ON  OISK  FOP  PPOOUCTION  RUNS.  THE  2N0  ANO  3RD  OPTIONS 
ARE  CONTROLLED  BY  THE  VARIABLES  "PUNCH"  AND  "TSAR",  RESPECTIVELY, 
AND  ARE  EXERCISED  WHEN  THOSE  VARIABLES  ARE  INITIALIZED  TO  UNITY. 


DO  I  1*1.  10556 

1  201  M  *  0 
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7  5. 
It  . 
7  7. 

7  a. 
75. 
80. 
h  J  . 
82  . 
83. 

8*i  . 

85. 
8*  . 

8  7. 
88. 
rtS  . 

WO  . 

9  1  . 
s ; . 
9 '3  . 
w  . 
s#  5  . 


f.  THE  NUMBER  08  FACILITIES  AND  THE  DIMENSIONS  CF  THE  ARRAYS 
L  IN  THE  "STORES”  CUMMON  MUST  BE  ENTERED  HERE.  THE  DIMENSIONS 
C  SHOULD  BE  ONE  LARGER  THAN  THE  ARRAYS  USED  IN  THE  COMPANION 
C  VERSION  OF  THE  TSAR  SIMULATION  MuDEL.  EXCEPT  FOR  MUNITIONS 

r  ANT  perscnnfl.  FOP  MUNITIONS  ThF  DIMENSION  should  be  larger 

f.  BY  *101  ANO  FCR  PERSONNEL  IT  SHOWl  D  fir  2*NCPE0P  ♦  2,  WHERE 
(  NCPFOP  IS  THE  NUMB  F  P  CF  PERSONNEL  TYPi  S  AS  USED  IN  TSAR, 
f. 

N JF  AC  -  60 


MX  I  FEM  =  10 00 

Nil  PEG  “  2  02 

NJ AGE  =  101 

NO PART  =  401 

NUMUN  -  126 

NJTRAP  =  26 

NJMATt  =  26 

NO POL  -  10 

n.jecu:  =■  800 

NJPtL’P  *  i  NOP  fc 


2  1/  2 


5  7. 
y«  * 

5  5  . 

10  0. 

10  1  . 

10  2. 

K  i. 

10'#. 

lot. 

10  8. 
i  08  . 
lie. 

114. 

118. 

1  I  =  .  ? 

i :  *• . 

n  *■ .  } 

116.  A 

117. 


lit. 

i. 

115. 

(  " 

E  Pl  AC  r  P  L  >  U  J  P  C  F  i  i\  AT  I  •  i‘i  U:  r  C  ^  I  •’  T  .  '>k  $  A  S  <•'[  JUIREO 

I2C. 

< 

12  1  . 

if  .'uhANi.E  *Nf.  11  i.t.  TC  l  w.’-j 

12?. 

NT  -  0 

12  J. 

N  T  2  =0 

12*#. 

r  man  ;e  =  o 

125. 

PL  A:,  -  1 

126  . 

NCwTGT  =  l 

12  7. 

DO  1010  1  *  21.  10556 

12  P. 

1  J  1C 

/.GUI  =  0 

125. 

102  0 

CUNT  I  SUE 

130  . 

l. 

13  1  . 

G  ♦  **♦*  BEGIN  NEW  (  ASf  •*♦** 

13  2. 

c 

139. 

CASt  =  CASE  *  l 

13*. . 

DO  S  1=1.5 

1  36. 

6 

NRW( 1 1  =  0 

13  6. 

c 

13  7. 

CALL  INPUT  I  CASE , MwPN.NEwTGT .M  SAP  .NPUNi  HI 

138. 

r. 

13S. 

1  f  (  NTR  |  AL  .LT  .  ?  )  CCJ  TO  26 

140. 

IF  <  (CASE  .EO.  U.CR.1FIAU  .EQ.  11)  (,C  TO  14 

14  l  . 

DO  12  J  *  2,3 

147. 

DO  6  1  =  1 .NOPE  G 

14J. 

6 

PEOPLE! 1 .J )  *  0 

144. 

DP  7  I  =  l. NOAGE 

14.5. 

7 

age; i  .ji  =o 

1  46  • 

DO  fl  I  3  1. NOPART 

147. 

ft 

PARISH  .31=0 

14P. 

DO  9  I  *  l. NUMUN 

14S  . 

y 

AMMO ( I »  J  1  -  0 

160. 

00  10  I  *  1. NJTRAP 

N*  2  "  0 
N  A  - 

M i i  (. 

f.ASi'  - 

j 
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-  J  Y  P  r  C  l  1  = 
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f  A  t  r  V  1  T  )  -  0 
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L 
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IS  1  . 

10 

TRAP i I  *  J  >  *  0 

IS?  • 

00  11  I  *  1.N0HATL 

153. 

11 

MATERL1 I  .  J  »  >0 

154. 

00  12  1  =  l.NOPOL 

155. 

12 

P0L<  l.JI  *  0 

154. 

14 

CONT  IMJE 

152. 

NSTAT  =  0 

154. 

00  15  1  -  l.NT 

155. 

00  15  N  *  1.13 

160. 

15 

STAT ( l.N)  =0.0 

161  . 

2  5 

00  30  1=1.  NST 

162- 

30 

MHITU1  =  0 

163. 

40 

CONTINUE 

164. 

00  45  N  =  1.8 

165. 

45 

MSTAKNI  =  0 

166  • 

CALL  TGTOIM 

167. 

00  50  I  =  1.NT2M 

166. 

OQ  50  J  =  1.8 

16  5  . 

50 

P2U.J)  =  0.0 

170. 

IF  (NT2  .EO.  01  GO  TO  60 

17  1. 

DO  55  I  =  1.NT2 

172. 

00  55  N  *  1  .2 

173. 

55 

C0V2  (  I  ,NJ  =  0.0 

174. 

C 

175. 

CALL  EXPHIT 

17*  . 

C 

17  7. 

IF  (NT  .EO.  0)  GO  TO  200 

178. 

60 

IF  (KPT1  .EO.  01  GO  TO  100 

17  5. 

c 

180  . 

CALL  TGTORO 

LR  1  . 

c 

182. 

CALL  TGTZON 

183. 

c 

184  . 

100 

CONTINUE 

186  . 

c 

•  »*♦»  LEGIN  NEW  TRIAL  »*»»» 

18*. 

ITR1AL  =  ITRIAL  ♦  1 

187. 

IF  (ITRIAL  .GT.  NTS AR I  TSAR  *  0 

188. 

IF  (ITRIAL  .GT.  NPUNCH1  PUNCH  =  0 

185. 

00  105  11  =  1,  NST 

190. 

00  105  12  =  1.3 

191. 

00  105  13  =  l.  25 

19?. 

1  15 

M I  T ( 11,12, 131  =  0 

193. 

on  110  I  =  1 .NT 

\9  4  • 

covi i »  =  o.o 

195. 

DO  108  N  =  1,8 

194. 

108 

P(  i  ,NI  *  0.0 

197. 

NCBUI 11=0 

198. 

OH  I  T  (  11=0 

199. 

110 

NH I T ( 11=0 

200. 

IF  (NSM  .EO.  01  GO  TO  115 

20  1. 

00  112  I  =  1,  NT2M 

20  2  . 

DO  112  N  =  1.  8 

20  3. 

112 

P2(I . N •  =  0.0 

204. 

114 

CONTINUE 

205. 

00  115  11  «  1,  5 

206. 

DO  115  12  =  1,  3 

207. 

00  115  13  =  V,  250 

208. 

115 

HITR1II.I2.I3I  *  C 

205  . 

CALL  BOMB 

210. 

IF  1KCBU  .EC.  11  CALL  CBU 

211. 

REPAIR  •  0 

212. 

’r  (MCR  .N£.  01  CALL  CHECKR 

213. 

!NTRIAL  .LT.  21  GO  TO  170 

214. 

0.'  140  I  =  1.  NT 

216. 

AID  =  NH I T ( I 1  -  NC8UUJ 

214. 

STATI I, I 1  =  STAT I  1,11  ♦  AID 

217. 

STAT  (  1,21  =  STATU.  21  ♦  A  I  D*AI  0 

21  8. 

IF  (  A 1 0  .GT.  0.01  STATU, 31  =  STATU 

219. 

STATU, 41  =  STATU. 41  *  COVU  1 

220. 

STATU. 51  =  STATU, 5*  *  COVU)*COVU» 

221  . 

00  140  J  *  1.8 

222. 

STATU, J*5I  »  STATU, JF5I  ♦  PII.JI 

223. 

140 

CONTINUE 

22  4. 

170 

CONTINUE 

225. 

IF  (NPRINT  .GT.  It  GO  TO  180 

22*.  CALL  PRINT 


22  7. 

180 

CONTINUE 

22  8. 

IF  INPRINT  .ME.  5  1  GO  TO  190 

224. 

00  185  L  *  1 » NT 

230. 

ias 

WRITEI6, 10011  I  TRIAL*  L .  NH I T < L» 

2  3  1. 

i4j 

CONTINUE 

2j2. 

IF  I  INTSAR  .EO.  1)  CALL  DAMAGE 

233  . 

IF  I  I  TRIAL  .IT.  NTPIAL1  GO  TO  100 

234. 

IF  INTRIAL  .GT.  1)  CALI  STATIS 

23*. 

20U 

IF  (INT  .EO.  0) .AND. 1 I NTSAR  ,F0.  11) 

CALL 

DAMAGE 

23*. 

IF  (NREDO  .EO.  1)  GO  TO  4 

237. 

STOP 

23  8. 

1  )0  l 

FORMAT!*  ',* TRIAL *. 14. ■  TOT*. 14,* 

HI  T4' 

.  141 

234. 

END 
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251. 
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268. 
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272. 
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279. 
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28  1. 
282. 

283. 

284. 

285. 

286. 

287. 

288. 
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291. 

292. 

293. 
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29  5. 

296. 

297. 
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299. 
3  00. 

30  1. 

302. 

303. 


// 

// 


SUBROUTINE  IN  PU T  (C A  SE,  HUP N  ,  NE WTGT  ,  NTSA  R  .  NPUNCH) 

IMPLICIT  INTEGER  »2  (A-Z) 

INTEGER  »4  DATA, LABEL, AN, HO RDS, NBA SE 1 , NBA S E 2, AID 

INTEGER  *4  DIM, DIM2.MSTAT 

INTEGER  *4  MX ITE M , NOPEO , NOAG S , NOPART , NOHUN , NOTEA P , NOM ATL , NOPOL 
INTEGER  *4  PEOPLE, AGE, PA  RTS, AMMO, TRAP, MATE?!, POL .NO'QUI , NOP  TOP 
REAL  *4  STAT 

THE  FOLLOWING  JCL  INSERTS  TSAPINA'S  COMMON  "BASIC'* 

DD  DSN=«.STEP1. COMMON, DISP=SHR 

DD  *, DCB=BLKSIZ£=800 

COMMON  /STATS  /  ST  A  T  (5  C  0  ,  1  7)  ,  M  S  TA  T  (8 )  ,  NTRI A  L  ,  ITR  IA  L ,  NS  T  AT 
COMMON  /CONTRL/  N R EP , NPLOT , IN W , IN L ,CH A NG E , N SA VE , LI  ST, N J MEM 
COMMON  /CSDHIT/  CBUHT(20C  ,2)  ,  IR(50),  KCBU,  KPTI 
COMMON  /OUTPUT/  TSAR,  PUNCH,  NBASE1,  NBASE2 

THE  DATA  STORAGE  ARRAYS  (AND  DIMENSIONS)  FOR  THE  RESOURCE 
STORAGE  LOCATION  DATA  ARE  FILED  IN  LABELLED  COMMON  STORES. 

SEE  THE  MAIN  ROUTINE  FOR  DIMENSIONING  INSTRUCTIONS 


COMMON  /STORES/  M X  I TEM , NO PEO , NO AG E , NOP AF T, NCMUN , NOTPA F  ,  NOM ATI  , 
NOPOL,  NO  EQUI ,  NOPEO?  ,  PEOPLE  (202,4),AGE(1C1,4)  .PARTS  (4  T  1  ,4)  , 

AMMO  (126, 4)  ,  TRAP  (26 ,4)  .MATER  L  (26,4)  ,  POL  (10, 4)  .STOCKS  (’  000,3)  , 
EQUI V  (400) 

COMMON  /  LISTER  /  ISAVE 

DIMENSION  LABEL  (10),  DIM(500,2),  DIM  2  ( 1  CC,  2)  ,  DATA  (11),  WO=DS<4) 
CARDS  (1  0) 

DATA  LABEL  /'TGI  ■  ,  •  TGT2  •  ,  •  ATT  1  ,  '  ATT2  '  ,  'END  ',  •  EQUI*  ,  •  CONI'  , 
'DATA', 'REDO', 'END  •  / 


NS  = 

XHIN 
YHIN  =  0 
NJMEM  =  " 
LAST  =  0 
LIST1  =  0 
LIST2  =  0 
ITEM  =  0 
FLAG  =  0 
IF  (CASS  .EQ. 
NRMAX  =  0 
NA0  =  1 


=  0 


1)  NAMES  =  2 


IP 

(NR3D0 

.  EQ. 

0) 

GO  TO  2 

S  EE 

NOTE  AT 

LABEL  • 

48* 

IF 

(N  EWTGT 

•  £  Q  i 

.  3) 

LIST!  = 

LIST 

IP 

(NS  A  VE 

.GT. 

0) 

N A  -  NSAVE 

I? 

(NS  AVE 

•  LT  • 

0) 

NA  =  0 

NA0 

=  HA  ♦ 

1 

IF 

(NSAVE 

.EQ* 

0) 

LI  ST  2  = 

LIST 

ii, , 


MSAVE  =  0 
CONTINUE 
NREDO  =  0 

READ  (5,101)  AN,  NTYPE,  (DATA  (I),  1=1,11),  (WCPDS( 

I”  (K  TEST.  GT.  2)  WRITE  (6, 110  1)  AN,  NTYPS,  (D>TA  (I)  ,1=1, 

X  (WORDS  (I)  ,1=1, NAMES) 

NO  ENTRY  IS  REQUIRED  IS  COLUMNS  5  AND  6.  IF  AS  TN"EG”  ' 
ON  AN  ATTACK  CARD,  THE  ATTACK  WILL  BE  RFPEATED  SO  "HAT  TH 
BE  THAI  TOTAL  NUMBER  OF  ATTACKS  WITH  THE  STATED  CHIRAC"!? 
(ONE  ATTACK  IS  ASSUMED  IP  ’HERE  IS  NO  ENTRY.) 

:afds  and  columns  67-7?  of 


NAM"?) 


S  "OU'-D 
F?T  Will 


304. 

c 

THE 

ENTRY  IN 

COL  8  OH 

THE 

Ere 

i  CA‘ 

305. 

c 

THE 

73  T 

CARDS  CONTROL 

THE 

NUM3EI 

306. 

c 

3  37. 

IP 

(A  N 

.  EQ. 

LABEL  (1) ) 

GO 

TO 

n 

308. 

IP 

(AN 

.fq. 

LABEL  (2)  ) 

GO 

TO 

15 

309. 

IP 

(AN 

.  EQ. 

LABEL ( 3) ) 

GO 

TO 

27 

310. 

IP 

(AN 

•  EQ. 

LABEL  (4)  ) 

GO 

TO 

26 

311. 

IP 

(AN 

.EQ. 

LABEL  (5)  ) 

GO 

TO 

3? 

312. 

IP 

(AN 

.  EQ. 

LABEL (6) ) 

GO 

TO 

36 

31  3. 

IP 

(AN 

.EQ. 

LABEL (7) ) 

GO 

TO 

47 

314. 

IP 

(AN 

.  EQ. 

LABEL (8) ) 

GO 

TO 

45 

315. 

IP 

(AN 

.EQ. 

LABEL (9) ) 

GO 

TO 

48 

316. 

TP 

(AN 

.  EQ. 

LABEL (1 0) 

)  GO 

■  TQ 

57 

•  ** 
- 1  * 
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317. 

318. 

319. 

320. 

321. 

322. 

32  3. 

324. 

325. 

326. 

327. 

328. 

329. 
3  30. 
331. 

33  2. 
3  3  3. 
3J4. 
3  36. 
3  3  6. 
3  3  7. 
3  38. 
3  30. 
3  40. 

34  1. 
34  2. 
34  3. 
34  4  . 

3  4  5. 
346. 
34  7, 
348. 
3  4  9. 
350. 
361. 

352. 

353. 

354. 

355. 

356. 

357. 

358. 

359. 

360. 

361. 

362. 
36  3. 
3o  4, 

365. 

366. 

367. 

368. 

369. 

370. 

371. 

372. 
3  7  3. 

374. 

375. 

376. 

377. 

378. 

379. 

380. 

381. 

382. 
38  3. 

384. 

385. 

386. 
38  7. 

388. 

389. 

390. 

391. 

392. 


US  TIE  (6,  1102)  AN,  TYPE,  (DATA  (I)  ,1=1,1  1)  ,  (WO. IDS  (I)  ,1  =  1,  NAMES) 
GO  TO  6 

10  NT  =  NT  ♦  1 

IF  ((NT  .  EQ.  1)  .AND.  (NPRINT  .  LE*  1))  WPITE  ( 6 , 1 2  1 ) 


IP  (NEWTGT  .EQ.  0) 

GO  TO 

170 

LI  ST  1  =  0 

IF  (NT  .GT.  NTM) 

GO  TO 

120 

DO  11  I  =  1,2 

DIM (NT, I)  =  DATA  ( 

I) 

IF  (DATA  (1 )  .LT. 

XMIN) 

XMIN  -  DATA  D 

IF  (DATA  (2)  .LT. 
DO  13  I  =  3,4 

Y  MX  N) 

YMIN  *  DATA  (2) 

1  3  TOT  (NT,  1  +  9 )  =  DATA  (I) 

DO  131  I  =  5.7 

131  TOT  (NT,  I  4  4j=  DATA  (I) 

19 T  (NT,  14]  =  DATA  (8) 

IF  (DATA  (6 ]  .NS.  SHFLT)  GO  TO  133 
NS  =  NS  ♦  1 

TOT  (NT,  14)  =  1007  ♦  NS 

SHEL(N’S)  =  NT- 

133  I?  (  (  DATA  (8)  .  GT.O)  .  AND.  (DATA  (3)  .IT.  100  ))  )  F  A  CL  T  V  (  DA  T  i  (  8  )  ) 
DO  14  1=1, NAMES 

14  NAME  (NT  ,1)  ---  WORDS  (I) 

IF  (  (DATA  (9)  40ATA  (11)  )  .Eu.  7)  3C  TO  U2 

IF  (NPRINT  .LF,  1)  WRITE (6, 1 22)  NT,  ( F A M F  (NT , L )  ,  l  =  1 , 4 •  , 

X  DATA  (  1)  ,  DATA  (?) 

ITFK  =  ITEM  4  1 

IF  (ITEM  .01.  BXITEH)  GO  TO  167 
NCAFD3  =  DATA  (11)  /100 
I*  (NCA.P.DS  .  EQ.  0)  30  TO  141 


SUBROUTINE  STOP':  ORGANIZES  RESOURCE  DATA  '0? 
FACILITIES  WITH  SEVERAL  ITEMS. 


C 

c 

c 


CALL  STORM  ITEM,  NCARDS  ) 


GO  TO  142 

WITH  ONLY  ONE  CLASS  AND  ONE  TYPE  (OR  ALL  TYPES  OF  A  CLASS)  , 
ENTRY  FILE  IS  SUBROUTINE  STORE  IS  USED. 


141  STOCKS  (ITEM,  1)  =  NT 

STOCKS  (ITEM, 2)  =  1770 

CALL  EILE(ITSB,DATA(9)  ,DATA(10)  ) 

142  CONTINUE 
GO  TO  6 

15  NT2  =  NT2  ♦  1 

IF  (NEWTGT  .  EQ.  0)  GO  TO  170 

IE  (NT2  •  GT.  ICO)  GO  TO  120 

DO  16  I  =  1,2 

16  DIM2 (NT2.I)  =  DATA  (I) 

IF  (DATA  (1)  .L7.  XMIN)  X1SIN  =  DATA  ( 1) 

IF  (DATA  (2)  .LT.  Y MIN)  YMIN  =  DATA  ( 2) 

DO  17  I  =  3,4 

17  T3T2  (NT2, 1  *9)  =  DATA  (I) 

DO  18  I  =  5,7 

18  TGT2 (NT2.I  44)=  DATA  (I) 

GO  TO  6 

20  NA  =  NA  4  1 
LIST2  =  0 

IF  (  NA  .GT.  NAM)  GC  TO  130 
DO  22  I  ■  1,6 

22  ATT(NA.I)  =  DATA  (I) 

ATT  (NA  ,  10)  =  DATA  (7) 

IF  (DATA  (7)  •  EQ.  0)  ATT  (NA,  10)  =  A  TT  (NA,  6) 
IF  (DATA  (11)  .FQ.  0)  DATA  (1 1)  =  100 
ATT(NA.II)  =  DATA  (11) 

DO  24  I  *7,9 

24  ATT  (NA,  I)  *  DATA  (1*1) 

NTYPE  *  HAX0(  (NTYPZ-1)  ,3) 

IF  (NTYPE  .  EQ.  0)  GO  TO  6 
GO  TO  20 
26  NA  •  NA  4  1 
LIST2  *  0 
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)3. 
)«. 
>5. 
3  6. 

37. 

38. 
19. 

:o. 

>i. 

>2. 

33. 
>V. 

35. 

36. 
)7. 
)8. 

39. 
10. 
11. 
12. 

13. 

14. 

15. 

16. 
17. 
IS. 

19. 

20. 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 
>9. 
10. 

31. 

32. 
3  3. 

34. 
3  5. 

36. 

37. 
3  8. 
19. 
10. 
11. 
12. 
13. 
>4. 
15. 
>6. 

1 7 . 

18. 
19. 
>0. 
11. 
12. 

13. 

14. 

15. 
>6. 
>7. 
18. 
19. 
>0. 
11. 
>2. 
>3. 
>4. 

15. 

1 6. 

17. 

18. 


IP  (  HA  .GT.  NAH)  GO  TO  130 
IF  (DATA  (1  1)  .  EQ.  0)  DATA  (1 1)  =  1.0 

CALL  JHEHC  (N  J  HE9 ,  D  AT  A  ,  NA,  KTEST) 

DO  27  1  =  1,11 

27  ATT  (HA,  I)  =  DATA  (I) 

28  NTYPE  =  9AX0  ( (NTYPE-  1)  ,C) 

IP  (NTYPE  .  EQ.  0)  GO  TO  6 
NA  =  NA  ♦  1 

DO  29  1=1.11 

29  ATT  (HA  ,  I)  =  ATT  (  (HA  -  1  (  , I ) 

GO  TO  28 

30  ND  =  ND  ♦  1 
H8  =  NTYPE 

IP  (NR  .EQ.  0)  NR  =  1 
IF  (NR  .GT.  NRHAX)  NRHAX  =  NR 
CBU  =  0 

I?  (DATA  (2)  .IT.  0)  CBU  =  1 
9  =  DATA ( 1 ) /I  000 
IF  (n  .GT.  10)  GO  TO  140 
IF  ((1  .GT.  HWPN)  9  W  PN  =  9 
AID  =  DATA  (1)  -  1000*9 

I?  (AID  .EQ.  0)  AID  =  100 
HPNEEL  (9)  =  AID/100. 

HTYPE  (9)  =  NR 
CARDS  (9)  =  TT 
DO  32  N  =  2,11 
32  ESD(H.N-I.I)  =  DATA  (N) 

DO  34  NC  =  2,  NR 

34  READ  (5,  114)  (END  (9,  N,NC)  ,  N  =  1,10  ) 

I?  (TT  .EQ.  1)  GO  TO  6 

NF  =  CBU  ♦  1 
DO  35  NC  =  NF,  NR 

35  K3AD(S,114)  (END (9 , N, NC) ,  N=  11,20) 

GO  TO  6 

C 

C  STORE  RESOURCE  EQUIVALENCE  DATA 
C 

36  DO  39  1=1,11 

IF  ((DATA  (I)  .SQ.  0)  .AND.  (FLAG  .GT.  ")  )  GOTO  ’9 
IF  (DATA  (I)  .GT.  5000)  GO  ’0  38 
IF  (TYPE  .EQ.  0)  GO  TO  37 
C 

CALL  SAVE  (CLASS,  TYPE,  DATA  (I)) 

C 

FLAG  =  FLAG  ♦  1 
GO  TO  39 

37  TYPE  =  DATA  (I) 

GO  TO  39 

38  CLASS  =  DATA  (I)  -  5000 

TYPE  =  0 

FLAG  =  0 

39  CONTINUE 
GO  TO  6 

C 

C  TSAR  INPUTS  ARE  PREPARED  AND  LISTED  IF  INT'A®  IS  SET  ~0  UNITY, 
C 

40  INTSAR  =  NTYPE 
NODE  =  DATA ( 1 ) /1000 

TTGT  =  DATA  ( 1 )  -  100C*90DE 
IF  (TTGT  .LT.  0)  TTGT  =  -ITS" 

IF  (TTGT  .LE.  10)  TT  =  1 

IF  (TTGT  .GT.  10)  TT  =  2 

AID  =  DATA  (2) 

NTRIAL  =  AID/1000 

AID  =  AID  -  1000*NTRIAL 

IP  (NTRIAL  .LT.  2)  NTRIAL  =  1 

IF  (AID  .GT.  0)  NAHTi  =  4 

NPRINT  =  DATA (3) /1090 

PDA8  *  DATA (3)  -  1000*NPRIN’ 

IF  (PDA9  .LT.  0)  PDAN  =  -  PDAH 
KTEST  =  DATA  (4) 

CALL  SAVEF(C, KTEST, 9AXLOC) 

HCR  =  0 

IF  (DATA  (5)  .GT.  0) 

HCL  =  DATA  (5) 

9CH  =  DATA  (6) 


HCR 


1 
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4o9. 

NR  EP  =  DAT  X (7) / 1000 

470. 

NPLOT=  DATA  <7;  •  1000*  NRRP 

*71. 

IHH  =  DATA { 8 ' 

472. 

INL  =  DATA  (9) 

47  3. 

IF  (INN  .  EQ.  0!  INN  =  5 

474. 

I?  (INL  ,SQ.  0)  INL  =  250 

475. 

NBASE1  =  WORDS  ( 1) 

476. 

NBASE2  =  WORDS  (2) 

477. 

GO  TO  6 

478. 

c 

4  7  9. 

c 

THE  DATA  CAFD  ONLY  SLED  BE  USED  WHEN  OUTPUT  IS  TO  BE  USED  WI"*H 

? 

480. 

r* 

491. 

C 

IF  THERE  IS  AN  ENTRY  IN  COLUMNS  5-6  FOR  NTYPE  (ISfVE), 

4  3  2. 

c 

THE  LO SSLS  FOB  EACH  SUECATSOOBY  OP  PESOUBCES  APT 

433. 

c 

PUNCHED  IK  CARD  FORMAT  SO  AS  TO  PT  P E®  D  CI?EC’rLY  Q Y 

484. 

c 

THE  "FOPMATEB"  AUXILIARY  PROGRAM  AND  PROCESSED  TO  ® 

435. 

c 

FORM  THAT  IS  USABLE  DIRECTLY  IS  THE  MrRFFARE»cESUL?SM 

486. 

c 

AUXILIARY  PROGRAM. 

4Q7. 

c 

488. 

n 

ALL  RELATED  CARDS  ABE  IDENTIFIED 

489. 

c 

BY  A  ***  IN  COLUMNS  73-75. 

490. 

c 

491. 

45 

CONTINUE 

49  2. 

ISAVE  =  NTYPE 

*«* 

493. 

TSAR  -  DATA  (1) 

494. 

NTSAR  =  TSAR 

495. 

IF  (NISAR  .GT.  0)  TSAR  ’  1 

496. 

PUNCH  =  DATA  (2) 

497. 

NPUNCK  =  PUNCH 

498. 

I?  (NPUNCH  .ST.  0)  PUNCH  =  1 

499. 

BASE  =  DATA (3) 

590. 

DAY  =  DATA  (4) 

501. 

HOOR  =  DATA  (5) 

502. 

HINUTE  =  DATA  (6) 

503. 

SHELT  =  DATA  (7) 

504. 

TXWYS  =  DATA  (8) 

505. 

RAMPS  *  DATA (9) 

506. 

r 

507. 

c 

ACLOSS  IS  THE  EXPECTED  LOSS-TO-DAM.AGE  PERCENTAGE  FD”  AIRCRAFT. 

50  8. 

c 

(SEE  SUBROUTINE  DAMAGE  FOR  APPLICATION) 

509. 

c 

510. 

ACLOSS  =  DATA (10) 

511. 

c 

*«* 

512. 

IF  (ISAVE  .  EQ.  '.)  GO  TO  6 

*1* 

513. 

N99  =  99 

*«* 

514. 

WRITE(7,  111  1)  N99.BASF.I5AVF 

*•* 

515. 

111 

1  FOPMAT(I3,2X,I2,5XrI2) 

*** 

516. 

c 

*»* 

517. 

GO  TO  6 

518. 

48 

NBEDO  =  1 

519. 

c 

520. 

c 

IF  THE  FIRST  DATA  ENTRY  ON  THE  REDO  CARD  (COL  12)  TS 

521. 

c 

ALL  THE  TARGETS  ARE  TO  BE  CHANGED  FOR  THE  NEXT  CASE. 

522. 

c 

523. 

CHANGE  =  DATA  (1 ) 

524. 

c 

525. 

c 

THE  SECOND  DATA  ENTRY  ON  THE  REDO  CARD  (COL  18)  MAY  BE  USED 

526. 

c 

TO  SPECIFY  THE  NUMBER  OF  PRIOR  ATTACKS  TO  BE  INCLUDED  IN 

527. 

c 

THE  NEW  CALCULATION.  THAT  NUMBER  WILL  BE  SELECTED  IN 

528. 

c 

RANK  ORDER  FFOM  THOSE  INPUT  PREVIOUSLY;  IN  NO  CASE  MAT  THE 

529. 

c 

NUMBER  BE  LARGER  THAN  THE  NUMSER  AVAILABLE.  IF  NO  NUMBEE 

530. 

c 

IS  ENTERED,  ALL  PRIOR  ATTACKS  WILL  BE  INCLUDED.  IF  A 

531. 

c 

NEGATIVE  NUMBER  IS  ENTERED  (EG  -1),  NONE  OF  THE  PRIOR 

532. 

c 

ATTACKS  WILL  BE  TREATED.  NEW  ATTACKS  ARE  PEQUIREU 

533. 

c 

IF  NEW  TARGETS  ARE  ENIERED. 

534. 

c 

535. 

NSAVE  =  DATA (2) 

536. 

IF  (CHANGE  .GT.  0)  NSAVE  =  -1 

537. 

c 

538. 

c 

IF  THE  THIRD  ENTRY  (COL  24)  IS  SET  TO  UNITY,  THE  TARGE”  LIS? 

539. 

c 

AND/OR  THE  ATTACK/WSAPON  LISTS  WILL  BE  SUPPRESS’D  IF  THE 

540. 

c 

LATTER  HAVE  NOT  BEEN  CHANGED. 

541. 

c 

542. 

LIST  =  DATA  (3) 

543. 

50 

CONTINUE 

54  4. 

c 

78 


*1 


5  45. 

r 

PLACE  A  "-1"  IN  THE  TENTH  BON  OP  EACH  COLUNN  FOB  THOSE  •'APSE' 

546. 

C 

TYPES  P0S  WHICH  THE  EFFECTIVENESS  WITH  INTERNAL  AND  EXTERNAL 

54  7. 

c 

IS 

NOT  TO  BE  DISTINGUISHED. 

548. 

c 

549. 

LHT  =  1 0*TT 

559. 

DO  54  H  =  1,10 

551. 

IP  (HTYPE(H)  .EQ,  9)  GO  TO  54 

552. 

DO  54  N  =  1 , LMT 

553. 

IP  (N  .EQ.  SHELT)  GO  TO  54 

554. 

IF  (NRHAX  .LS.  9)  GO  TO  53 

555. 

DO  51  I  =  1, NRHAX 

556. 

SON  =  NRHAX  -1*1 

557. 

IP  (END  (fl,  N.ROH)  .NE.  0)  GO  TO  52 

558. 

IF  (SOW  .EQ.  9)  GO  TO  53 

559. 

51 

CONTINUE 

560. 

52 

IF  (ROW  .EQ.  9)  END  (H.N,  10)  =  -1 

561. 

GO  TO  54 

562. 

53 

EHD(N,N,10)  =  -1 

563. 

54 

CONTINUE 

564. 

c 

565. 

n 

NOT 

E  WHEN  SHELTERS  ARB  TO  BE  HANDLED  WITH  THE  HONTE 

566. 

c 

CARLO  HODE  BATHES  THAN  THE  EXPECTED  VALOE  HODE. 

567. 

c 

568. 

ALLHC  =  0 

569. 

IF  ((SHELT  .GT.  0)  .  AND,  (NT2  .  EQ.  0))  ALLHC  =  1 

570. 

NS  H  *  NS 

571. 

c 

572. 

CALL  SAVER(1 , KTE ST.HAXLOC) 

573. 

c 

574. 

WRITE  (6, 128)  ITEH,  HAXLOC 

575. 

v» 

576. 

c 

PRINT  OOTPOT  HEADING  BLOCK 

577. 

c 

578. 

IF  (NE EDO  .EQ.  0)  LAST  =  1 

579. 

IF  (HODE  .EQ.  0)  CALL  R  START  (7) 

560. 

WRITE  (6,111)  NTRIAL,  NPRINT,  PDAH,  HODE,  HCL ,  TNL,  HCW, 

581. 

1 

NREP ,  NPLOT,  KT5ST,  CASE,  BASE,  DAY,  HOUR,  HINUTE 

582. 

IF  (  (N8ASE1  .EQ.  0)  .AND.  (NBASE2  .EQ.  0))  GO  TO  55 

583. 

W3ITE  (6,100)  NBASE1,  NBASE2 

584. 

55 

CONTINUE 

585. 

IF  (NPRINT  ,  GT.  0)  WRI  TE  (6 , 1  29 )  NT,  NA 

586. 

IF  (NPRINT  .LE.  0)  WRITE(6,102) 

587. 

IF  (NEWTGT  .EQ.  0)  GO  TO  65 

588. 

c 

589. 

c 

TO 

FACILITATE  THE  PROCEDURE  OUTLINED  IN  SUBROUTINE  TGTZON, 

590. 

c 

TH 

E  X-Y  COORDINATE  SYSTEH  IS  TRANSLATED  SO  THAT  ALL  TARGrTS 

591. 

c 

ARE  IN  THE  FIRST  QUADRANT,  WHEN  NECESSARY. 

592. 

c 

593. 

XH  =  (Xfl IN  -  999)  /1300 

594. 

YH  =  (YHIN  -  999)  /10C9 

595. 

XH  -  -  1000*XH 

596. 

YH  =  -  1000*YH 

597. 

XHAX  =  32000  -  XH 

598. 

YHAX  =  32000  -  YH 

599. 

56 

IF  ((XH+YH)  .GT.  9)  WRITE  (6,  123)  XH,  YH 

600. 

HIT  «  0 

691. 

IF  (NT  .EQ.  9)  GO  TO  63 

692. 

DO  59  I  =  1 ,NT 

693. 

IF  (IGT(I,  10)  .GT.  HTT)  N’T  =  TGT(I,1C) 

694. 

59 

CONTINUE 

69  5. 

DO  62  H  =  1,  HTT 

696. 

FLAG  =  0 

697. 

DO  62  I  =  1 , NT 

6  98. 

IF  (TGT  (1,10)  .NE.  H)  GO  TO  62 

6  3  9. 

I?  (FLAG  .EQ.  1)  GO  TO  60 

610. 

IF  (NPRINT  .LE.  0)  WRITE  (6,1  12)  H 

61  1. 

FLAG  =  1 

612. 

69 

IF  (  ( DIM  (1,1)  .LE.  XHAX)  .  AND.  (DIH(I,  2)  .LE.  YHAX))  GO' 

613. 

c 

614. 

c 

IP 

A  TARGET  IS  OUTSIDE  THE  ALLOWED  32000  X  32900  ARE!  ,  IT 

615. 

c 

IS 

SHIFTED  TO  THE  EDGE  OF  THAT  AREA  AND  THE  USES  IS  NOTIFIED 

616. 

c 

617. 

IF  (DIH  (1,1)  .GT.  XHAX)  DTN(I,H  =  XHAX 

618. 

IF  (DIH  (1,2)  ,GT.  TRAX)  DIH  (I,  2)  =  YHAX 

619. 

W  RI  TE  (6 , 1 24  )  I 

629. 

61 

TGT  (1,1)  =  D IH  (I  ,  1 )  ♦  XH 

S?1. 

TGT  (I, 2)  =  DI  R  (I  ,  2)  ♦  YH 

622. 

: F  (NPRINT.LS.O)  KBITS  (6,112)  I,  (IG?  (I  ,  J )  ,J=  1 , 2)  , 

623. 

X 

(TGT(I,  J)  .  J=  12,13)  .  (TOT  (I.J)  ,  J=9,11)  ,TGT  <T,1U)  . 

624. 

X 

(N  AME  (1,6)  ,L=1, NAMES) 

625. 

62 

CONTINUE 

626. 

IF  (LIST1  .  EQ.  1)  GO  TO  65 

627. 

6  3 

IP  (NT2  .EQ.  0)  GO  TO  65 

628. 

KBITE  (6,  115) 

629. 

DO  64  I  =  1,NT2 

6  3  0. 

TGT2  (I,  1)  =  DIM2  (1,1)  ♦  XM 

631. 

TGT2  (1,2)  =  0I«2(I,2)  ♦  YM 

632. 

64 

WPIIE  (6,113)  I,  (7GT2  (I.J)  ,  J=1, 2)  ,  (TGT?  (I.J)  ,  J=12,  13)  , 

633. 

X 

(TGT2  (I.J)  ,  J  =  9, 1 1) 

6  34. 

C 

635. 

65 

NEWTG?  -  0 

6  36. 

IF  (LIST2  .80.  1)  GO  TO  95 

637. 

WFITE  (6,104) 

6  38. 

KPTI  =  0 

639. 

DO  68  I  =  NAO  ,  NA 

640. 

ATT  (1,2)  =  ATT  (1,2)  ♦  XM 

641. 

63 

ATT(I,3)  =  ATT  (1,3)  +  YM 

642. 

DO  70  I  =  1,  NA 

643. 

IF  (EMD(A?T(I,9)  ,1  ,  1)  .GE,  0)  KPTI  =  1 

644. 

7  0 

W9IIE  (6,103)  I,  (ATT(I,J)  ,J=1,6)  ,AT7(I,  19)  ,  (ATT  (T,J)  , ’  =  7, 

3) 

6  4b. 

X 

.  ATI  (1,11) 

o  4  6. 

IF  (  ( ND  .TO.  0)  .OR.  (NPEIKT  .GT.  0))  GO  TO  95 

6-7. 

W  ?  I  T  E  (6,105)  (I,  T  =  1 ,  10) 

64  H, 

tn  90  :  =  i ,  mwfn 

6  4  9. 

NT  =  .“.TYIT(T) 

6  6% 

I?  (N?  . Eo.  0)  GO  TO  90 

b  :  1  . 

ws::e(6,io6)  ;,  bpss-lo  ,  (E«D(i,j,i)  ,j*i,’0) 

1  .  . 

KB-T2  (6,107)  ( ( EM  D  (1 ,  J  ,  K)  ,  J  =  1,10),  K  =  2,NF) 

b  ' 

-r 

C)  NTT SUE 

-  :  6  4  . 

TP  (CARDS  (I)  .  EQ.  ’)  GO  TO  9" 

t  6*:. 

C3U  =  0 

b  b  b  • 

:p  ( e ~ d  ( i ,  i,i)  .lt.  0)  cbu  =  i 

6  5  7. 

NP  =  CZ>U  ♦  1 

6  5  6. 

«?:?£ (6, 127) 

d0  9. 

«b::f (6, 107)  (  (emdc.j.k)  ,  j  =  i  1,20)  ,k=nf,nr) 

6  6  0. 

90 

CONTINUE 

661. 

95 

CONTINUE 

66  2. 

C 

66  3. 

r 

tasge:  type  #1  is  besefved  fo?  runways  and  taxtways  (t*  ot« 

rt 

664. 

C 

LAPSE  TARGETS  IF  MCS  =  9)  AND  HIT  STORAGE  IS  PPOVTDED  FOF  250 

H 

665. 

c 

BUT  FOF  A  MAXIMUM  OF  FIVF  TARGETS  OF  TYP-  *1. 

666. 

C 

6o7. 

t’TX  =  0 

668. 

DO  99  I  =  1  ,  NT 

669. 

IF  (TGT  (1, 10)  .NE.  1.)  GO  TO  99 

670. 

NTX  =  NTX  ♦  1 

67  1. 

IF  (NTX  .GT.  5)  SO  TO  150 

6  7  2. 

NRW(NTX)  =  I 

673. 

99 

CONTINUE 

674. 

IP  (KTEST  .LT.  8)  RETURN 

675. 

KB  ITF  (6 , 112)  NAMES 

676. 

KBITE  (6, 1 18)  (  (STOCKS  (I , J)  ,1  =  1,30)  ,  J=1 ,  3) 

677. 

KRITE  (6, 118)  (  (PEOPLE  (I.J)  ,1  =  1,30)  ,J=1, 4,  3) 

678. 

KBITE  (6,118)  (  (PEOPLE  (I  ,J)  ,  1=102 , 1 31)  ,  J«  1 , #,  3) 

679. 

KBITE  (6,118)  (AGE  (1,1)  ,1=1,30) 

680. 

KRITE(6,118)  (PARTS  (1,1)  ,1=1,  30) 

681. 

KBITE (6, 11 8)  (AMMO (1,1) ,1=1,26) 

682. 

KB  ITE  ( 6 , 1 1  8)  (TRAP  (1,1)  ,1  =  1,26) 

683. 

KBITE  (6, 118)  ( MATES L  (1,1)  ,1  =  1,26) 

684. 

WRITE  (6,118)  (POL  (1,1)  ,1=1,10) 

685. 

WHITE  (6,118)  (EQOIV(I)  ,1=1,69) 

686. 

IF  (KTEST  .  GT.  15)  STOP 

687. 

RETURN 

688. 

c 

6  8  9. 

12C 

WRITE  (6,108) 

6  90. 

STOP 

691. 

130 

WRITE  (6, 1C9) 

6  9  2. 

STOP 

693. 

140 

KRITE  (6,110) 

694. 

STOP 

695. 

150 

KRITE  (6,116) 

696. 

STOP 

697. 

160 

WRITE  (6,1 17) 

698. 

STOP 

i 


170 


WRITE<6, 1  19) 
STOP 


69  9. 
7C0. 
701. 


702. 

100 

FORMAT  ( •  4 

703. 

101 

POP. MAT  (  A  4 

704. 

102 

FORMAT  (4 

705. 

XM  NS  LIMB 

706. 

X  //  ) 

707. 

103 

FORMAT  ( 1  * 

708. 

104 

FORMA ?( 4  • 

709. 

X  Y-DMPI 

710. 

XTH  HPN  TYP 

7  11. 

105 

FORMAT  (* 1 

712. 

X50X, 1  TARGET 

713. 

X/,/,/) 

7  14. 

106 

FORMAT ( • 0* 

715. 

107 

FORMAT  (4  4 

716. 

108 

FORMAT  ( 4  4 

717. 

109 

FORMAT  ( 4  4 

718. 

110 

FORMAT  (*  4 

719. 

X  'SPECIFIC 

720. 

1 1 1 

PORMAT  (*1 

BASE  COMPLEX  NAME  -  ',2A4, 


****•« 


PCX, ■ TARGET  DATA ' • 
SS  LIMB  ANGLE  TGT 


NUMBER  X-OIM 

'YPE  STOR"  BLDG 


/./) 


v  _  n  3 

Nn  *  , 


,19 ,2X, 1 II  10  ) 

,/.  20X,  'ATTACK  DATA1,/,'  NUMBEF 

SEP  DEP  S-DISP  D-DISP 

E  ARRIVAL1  ,/,/) 


HDG  X-OMPI 
NO  KPNS  LrSG 


Y  DATA’,/, 
KPN  PEL  • 


,  18X, 10110) 

,/,***»**  TOO  MANY  TARGETS  HAVE  BEEN  SPECIFIED  »**»•) 
,/.******  TOO  MANY  ATTACKS  HAVE  BEEN  SPECIFIED  ***»•) 
./,'••***  TOO  MANY  TYPES  OF  WEAPONS  HAVE  BEEN  •, 

D  «****•) 

130('»'),/, 

721.  X  40X,'«»*  TSARINA  ***  DAMAGE  ASSESSMENTS  POF  ISA?’,//, 

722.  X  37X, 'BASED  ON  THE  AIDA  MODEL  OF  AIRBASE  DAMAGE  ASSESSMENT' ,/, 

723.  X  39X, ' DEVELOPED  BY  D.  E.  EMERSON  AT  THE  FAND  CORPORATION',/ 

729.  X  ,  130  ('*•),/,  '  NO  DP  TRIALS  ',  13,'  NP5INT  ',12,'  DAMAGF  ',12, 

725.  X  '  MODE  '  ,  12 , 

7  2  o.  X  '  MCL  1  ,  16,  '  ('  ,  14  ,  •  )  MCW  '  .  14  ,  •  (  •  ,  12,')  M  IE  REPAIR  ', 

727.  X  11  ,'  PLOT  HITS  ',11,'  TEST  '  ,  T  2,  / ,  1  3  0  ( •  «  •  )  ,// ,  c  5X,  •  C  A  s  E 

723.  X  13,//,  2CX, 'IN  THE  TSAR  SIMULATION,  THIS  ATTACK  AND  D  A  M  A  G r 

7  29.  X  'OCCUR  A'  BASE  #',I2,'  ON  DAY',  13.'  AT  ',12,':'  ,TT,  //) 

730.  1  1  2  FORMAT  (•  ',  I4,4X,8I10,2X,4A4) 

731.  113  FORMAT  ('  ',  14, 4X,  7110) 

7  32.  1  1  4  FORMAT  (  12X,  1016  ) 

733.  115  FORMAT (' O' ,20X, •  »***  SHELTERS  ***«  '  ,/  ) 

734.  1  16  FORMAT  (•  ',/,'*****  TOO  MANY  RU NWA YS/TA XT W A YS  HAV"  BEEN  '  , 

735.  X  '  SPECIFIED  ****•) 

736.  1  17  FORMAT  ('  ',/,'*****  -HERE  ARE  TOO  MANY  FACILITY  CONTENTS  ', 

737.  X  'DESCRIPTORS  **»**•) 

7  38.  1  18  FORMAT  (•  ',3014,/,'  ',3014) 

739.  119  FOFMAT('0' .'TARGETS  MAY  NOT  BE  CHANGED  FROM  CASE  T0  CASE’  ) 

740.  121  FORMAT  ('O' ,10X, 'RSSOURCE  STORAGE  DATA',/,'  ', 'TARGET  NUMBER', 

741.  X  5X,  1  NAME'  ) 

742.  122  FORMA T ( '  ',  6X,  14,  8X,  4A4,  217  ) 

74  3.  1  23  FORMAT!'  '  ,  '  A  L  L  TARGET  LOCATION  DIMENSIONS  !'»'  INCPC'»S'»P  °Y', 

744.  X  16  ,'  IN  THE  /“DIMENSION  AND  ',16,'  IN  "HE  Y  -  DIM  ENSION '  , //) 

745.  124  FO  RMAT  ('O'  , •  ONE  08  BOTH  DIMENSIONS  OF  TARGET  ',14,'  WE  =  E  ', 

746.  X  'MODIFIED  TO  PUCE  THE  TARGE?  AT  "HE  EDGE  OF  THE  ALLOWED  AREA') 

747.  127  FORMAT  ( '  O'  ) 

748.  128  FOPHAI  ('C' ,'STD  AGE  OF  THE  FES9UPCE  LOCATIONS  EEQUIPED  ',19, 

749.  X  '  LOCATIONS  IN  THE  STOCKS  ARRAY, ',/,'  ','ASC  THE  rQU! V  A  LSNCE ' , 

750.  X  '  DATA  USED  ',14,'  ELEMENTS  OF  THE  EQUIV  ARRAY.',/  ) 

751.  129  FORMAT ( ' O' , ' DATA  WERE  ENTERED  FOR  ’,14,'  TARGETS  AND  ',13, 

752.  X  •  ATTACKS.',//) 

753.  1  32  FORMAT  ('O' ,  25X,’»*  TARGET  TYPE  t  '.I1,'  **',/) 

754.  1  101  FORMAT  (•  '  , A4 , 14, 11 1  8, 4A4 ) 

755.  1102  FORMA  T  ( '  '.'UNIDENTIFIED  CARD  IMAGE:  •  ,  A4, 12, 1116, 4A4  ) 

756.  END 


L 
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758. 

SUBROUTINE  TGTDIM 

758. 

IMPLICIT  INTEGER  «2  (A-Z) 

760. 

INTEGER  *4  MSTAT 

761. 

REAL  *4  THETA,  S,  C,  SIN,  COS,  SEAT 

76  2. 

C 

THE  POL  LOWING  JCL  INSERTS  TSARINAS  COMMON  "BASIC” 

763. 

// 

DD  DSN=* • STEP1 .COMMON , DI S  P  =  SHR 

7o  4. 

// 

CD  *, DCB=BLKSIZE=800 

765. 

COMMON  /STATS  /  STA  I  (50C  ,  1  7)  ,  MS  TA  T  (8)  ,  NTRI  AL  ,  TTSI A  L  ,  N  ST 

766. 

IF  (NPRINT  .LT.  0)  WRITE  (6,104) 

787. 

IF  (NT  .  EQ.  0)  GO  TO  22 

76  8. 

DO  23  I  =  1,  NT 

769. 

c 

TGI  DIM  COMPUTES  AND  STORES  THE  LOCATION  OP  THr  CTHEP  CORN 

770. 

LI  =  TGI  (1,12) 

771. 

L2  =  TGT  (1,13) 

77  2. 

THETA  =  TGT  (I,  9) /57. 3 

77  3. 

S  =  SIN  (THETA) 

774. 

C  =  COS  (THETA) 

775. 

LIS  =  L  1  *  S 

776. 

L1C  =  L 1  *C 

777. 

L2S  =  L2*S 

776. 

L2L  =  L2*C 

7  7  9. 

TGT  (1,3)  =  TGT  (I,  1)  *  LIS 

780. 

T3T  (1,4)  =  TGT  (I,  2)  ♦  L  1 C 

781. 

TGT  (1.5)  =  TGT  (I.  3)  ♦  L2T 

782. 

TGT  (  x  ,  6 )  —  7G?  (I,  4)  -  L  2  S 

7b  3. 

TGT  (1,7)  -  TGT  (I,  5)  -  Li;. 

794. 

TGT  (2,6)  =  TGT  (I,  6)  -  L 1 C 

765. 

IF  ((KIES'  .  G  T  •  2)  .  3r.  (N7FT,i'  .IT.  ? )  ) 

7  db . 

X 

WRITE  (‘,192)  I,  (TGI  <:,!•)  , 

7  8  7. 

23 

CONTINUE 

7  8  •?. 

22 

T'  (NT2  .Eg.  9)  3,  T-  29 

7  9  4. 

DO  26  I  =  ",  N  72 

7*0. 

C 

f 

to: m  tokputes  and  sio:-t:  the  locat'on  ->f  the  other  co-n 

79  1. 

LI  =  TGT2 ( I , 1 2) 

7  42. 

Li  =  IGT2  (1,13) 

7  9  3. 

THETA  =  TGT2(I,  ’)  /57.  : 

794. 

S  =  SIN  (THETA) 

7  9  5. 

C  =  COS  (THETA) 

796. 

LIS  =  L1*F 

797. 

L1C  =  L1«C 

7  98. 

L2S  =  L2*S 

79  9. 

L2C  =  L2«C 

80  0. 

TGT  2(1,3)  =  TGT2  (I  ,  1)  ♦  LIS 

801. 

TGT2  (1,4)  =  TGT2C,  2)  ♦  Lie 

802. 

TGT2  (1,5)  =  TGT2  (I,  3)  ♦  L2C 

9  3  3. 

T3T2  (1,6)  =  TGT2  (1 ,  4)  -  L2S 

804. 

TGT  2  (1,7)  =  TGT2  ( I  ,  5)  -  LIS 

835. 

T3T2(I,8)  =  TGT2  (1 ,  6)  -  Lie 

836. 

IF  ((KTEST  .  GT.  2)  .OR.  (NPPINI  ,  LT.  3)) 

807. 

X 

WRITE  (6,102)  I,  (TGT2  (I  ,K)  ,  K  =7  ,3) 

808. 

26 

CONTINUE 

809. 

28 

IF  (NT  . EQ,  3)  GO  TO  5C 

810. 

NR  =  0 

811. 

DO  30  I  =  1,  NT 

812. 

C 

POP  SPEC I  PIED  TARGETS  THE  TAFGET  NUMBER  IS  STORED  I"  MHTT 

813. 

C 

LATER  REFERENCE. 

814. 

IF  (  (TGT  (1, 11)  .LT.  1)  .OR.  (TGT  (1, 1C)  .  EQ .  1))  G0~0 

815. 

Nu  =  NR  ♦  1 

816. 

IF  (NR  .GT.  NST)  GO  TO  80 

817. 

MHIT(NR)  =  I 

818. 

IF  ((KTEST  .GT.  4)  .AND.  (ITRIAL  .LT.  2)) 

819. 

X 

WRITE  (6,  101)  NF,  MH  IT  (NR) 

82  0. 

30 

CONTINUE 

821. 

IF  (N?  .EQ.  NST)  GO  TO  50 

822. 

Nal  =  NR* 1 

823. 

DO  40  I  =  NF1,  NST 

824. 

40 

MHIT(I)  =  3 

82  5. 

50 

CONTINUE 

826. 

IF  ((NPRINT  .LT.  0)  .OP.  (KTEST  .  GT.  2))  WRITE(6,104) 

827. 

RETURN 

828. 

80 

WRITS  (6,193) 

829. 

STOP 

830. 

10  1 

FORMAT  (  •  ’ , 1 MHI?  ( 1  ,  12,  ■)  =  >,12) 

831. 

102 

FORMAT  (’  ’  ,  ‘TARGET  CORNER  :  TGT  #  • ,  14 , 4  (UX  ,  1 6,  1  X,  16)  ) 

832. 

103 

FORMA  T  ( 1 0*  ,  •  COMPUTATION  STOPPED:  HIT  DATA  SPACE  ’, 

8  3  3. 

X 

’REQUIRED  FOP  BORE  THAN  "NST"  TARGETS’) 

834. 

134 

FORMAT  <M’) 

8  3  5. 

END 

L 
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i 


I  837.  SUBROUTINE  TGTORD 

j:  838.  IMPLICIT  INTEGER  *2  (A-Z) 

|  339.  C  THE  FOLLOWING  JCL  INSERTS  TSARINA'S  COMMON  "BASIC" 

|:  840.  //  00  DSN=*.STEP1.  COMMON,  DISP  =  SHR 

f  841.  //  DO  *,DCB=8LKSIZE=e00 

|  842.  C  THIS  ROUTINE  CF  FATES  AN  ARRAY  IN  WHICH  THE  TARGET  NUMBERS  ARE 

843.  C  ORDERED  ACCORDING  TO  INCREASING  VALUES  OF  (X*  Y)  OF  THE  INDEX  CORN''? 


844.  C  OUTPUT  VALUES  :  TO(I,1)  IS  THE  (X*Y)  AND  TO(I,2)  IS  THE  'ORIGINAL' 


845.  C  TARGET  NUMBER;  1.5.  ITS  POSITION  IN  THE  INPUT  LIS"' 

84  6.  DO  10  1=1,  NT 

847.  C  INITIALIZES  TO  (TARGET  ORDEP)  ARRAY 

848.  IF  ITGT  (X,9)  .GT.  45)  GO  TO  5 

849.  TO  (I,  1)  =  TGT(I,  1)  +  TGT  (1,2) 

850.  GO  TO  8 

851.  5  TO  (I,  1)  =TGT(1 ,7)  +TGT  (1 ,8) 

852.  8  TO  (1 , 2)  =1 

853.  10  CONTINUE 

854.  IF  (NT  .EQ.  1)  GO  TO  25 

855.  DO  20  J  =  2,  NT 

856.  NTEST=0 

857.  DO  15  K  =  2,  NT 

858.  C  REORGANIZES  THE  TO  ARRAY  INTO  INCREASING  VALUES  OF  "HE  INDEX  CORNER 


859. 

I=NT-K+2 

860. 

IF  (10(1,1)  .GE.  TO  (1-1 , 

1))  GC  TO  15 

861. 

NTEST=1 

86  2. 

T=TO ( I- 1 , 1 ) 

863. 

TN  =  TO  (1-1,2) 

864. 

TO  (1-1 ,  1)  =TO  (1,1) 

865. 

TO  (1-1,2)  =TO  (1,2) 

866. 

TO  (I,  1)  =T 

867. 

TO  (1,2)  =TN 

86  8. 

15 

CONTINUE 

86  9. 

IF  (NTEST  .EQ.  0)  GO  TO 

25 

870. 

23 

CONTINUE 

871. 

25 

CONTINUE 

872. 

IF  (KTEST  .LI.  3)  GO  TO 

40 

873. 

DO  30  I  =  1,  NT 

874. 

NTO  =  TO  (1,2) 

875. 

30 

I”  (KTEST  .GT.  5)  WRITE 

(6,131)  I  ,  NTO 

876. 

43 

CONTINUE 

877. 

NT  1  =  NT  ♦  1 

878. 

DO  50  I  =  NT1,  NTH 

87  9. 

DO  50  J  =  1,2 

880. 

59 

TO(I,J)  =  0.0 

88  1. 

RETURN 

882. 

101 

FORMAT  (’  RANK  *,I3 

,  •  TARGET  «  ■  ,  13) 

883. 

END 

83 


885. 

888. 

867. 

888. 

889. 

890. 

891. 


9i9. 
940. 
94  1. 
942. 
9  4  3. 
944. 


C 

// 

// 

c 

c 


SUBROUTINE  TGTZON 

IMPLICIT  INTEGER  *2  (*-Z) 

THE  FOLLOWING  JCL  INSERTS  TSARINA* S  COMMON  "BASIC" 

DD  DSN=*. ST5P1. COMMON, DISP^SHR 

DD  *,DCb=BLKSIZE=800 

TGTZON  IDENTIFIES  TARGET  LOCATION  IN  TERMS  OF  ITS  TZONE  SO 


S  9  2. 

c 

SUBSEQUENT  SEARCH  PROCESS  CAN  EE  REDUCED.  CONSIDER  THE  ENTIRE 

8  9  3. 

c 

TARGET  AREA  MAPPED  BY  LINES  OF  CONSTANT  (X*Y).  ALL  "Ar  SET  5  WITH  ’ 

894. 

c 

■INDEX  C  OPNFP  *  (X*  Y )  FALLING  INTO  THE  K-TH  599  FOOT  SEGMENT  OF 

895. 

c 

( X  +  Y)  ARE  IN  THE  K-TH  ZONE.  THE  ORDERED  INDEX  NUMBER  'OF,  THE 

8  96, 

c 

TARGET  WITH  THE  LOWEST  (X*Y)  IN  THE  ZON-  IE  IZONF(K,1);  THAT  WI'H 

697. 

Q 

THE  HIGHEST,  IS  IZONE  (K, 2).  IF  THERE  ARE  NO  TARGE’S  IN  A  ZCS',  "HI 

698. 

r- 

1 Z ON b  VALUES  ART  BOTH  EOUAL  "0  "HI  INDEX  NUMBER  OF  THE  LAST  TA'P"" 

6  i  3 . 

c 

AS  IZONE  (K-1  ,2)  )  . 

9  3  3. 

.7 

931. 

z 

TO  ?ATI  I  I  TATE  THIS  PROCEDURE  THE  IA?U=;  COORDINATE  SYSTEM  I e 

9  1;, 

c 

TRAN:  L*TS5,  WEEN  NECESSARY  .  SO  THA*  ALL.  TARGETS  ARE  IN  "HE 

«$  3. 

KIR)"  TU  A  Or  A  NT.  IF  ANY  TARGET  COORDINATE  EXCEEDS  3299C,  TH" 

9  34. 

i.a:-;e“  is  pi  acep  a:  the  edge  o'  the  ail-wit  32099  x  32''*9  area. 

9  3  5. 

c 

an;  -he  use*  li  nctifirt. 

90b. 

c 

9C7. 

D  3  19  1  =  1, N" 

936. 

1 A 

IT.  Cl  =  T-(I,  1)/599 

90  3. 

IZONE(I.I)  =  0 

913. 

IZONE  (1,2)  =  9 

51  1. 

I?  (17.(1)  .N£.  3)  30  TO  14 

912. 

K  =  1 

91  3. 

IZONE  (1,1)  =  1 

9  1  4. 

IZONE  (1 ,2)  =  1 

915. 

IF  (NT  .  EQ.  1)  GO  TO  3  1 

916. 

DO  12  I  =  2,  NT 

917. 

IF  (IZ  (I)  .GT.  9)  GO  TO  22 

918. 

12 

IZONE  (1 ,2)  =  I 

919. 

c 

ALL  HITS  IN  ZONE  *1  HERE. 

920. 

GO  TO  30 

921. 

14 

DO  16  K  =  2,100 

922. 

IF  (I Z  ( 1 )  .EQ.  (K-1))  GO  ID  19 

923. 

IZONE  (K.1)  =  9 

924. 

16 

IZONE  (K  ,2)  =  0 

925. 

18 

CONTINUE 

926. 

IZONE(K.I)  =  1 

927. 

IZONE  (K-  1 , 2)  =  1 

928. 

IZONE  (K  ,  2)  =  1 

92  9. 

z 

AT  THIS  POINT  K  IS  ZONE  OF  FIRST  HIT 

9  3  0. 

IF  (NT  .  EQ.  1)  GO  TO  3  1 

931. 

DO  20  I  =  2, NT 

932. 

IF  (IZ  (T)  .GT.  (K-1))  GO  TO  22 

933. 

20 

IZONE  (K, 2)  =  I 

934. 

c 

ON  TRANSFER  TO  '22'  K  IS  FIRST  OCCUPIED  ZONE  AND  1  IS  'fTCRT  HI* 

9  3  5. 

c 

IN  ( K ♦ 1 )  ZONE. 

936. 

22 

CONTINUE 

9  37. 

N  =  I 

9  38. 

DO  28  I  =  N  ,  NT 

SKIP  TO  26  TP  HIT  IN  ZONE  OF  PRIOR  HIT 
I?  { I Z  ( T)  •  EQ .  IZ(.I-I))  GO  TO  26 
24  K  =  K ♦ 1 

I ZONE ( K , 1)  =  1-1 
IZONE  (K  ,  2)  =  1-1 

IP  NO  HITS  IN  ZONE  INCREMENT  ZONE 

GO  TO  24 


945. 

IF  (IZ(I)  .GT.  (K-1) 

946. 

IZONE  (K  ,  1)  =  I 

947. 

IZONE  (K  ,  2)  =  I 

948. 

GO  TO  23 

949. 

C 

INCREMENT  UPPER  HIT  I! 

950. 

26 

IZONE  (  K  ,  2)  =  I 

951. 

28 

CONTINUE 

952. 

30 

CONTINUE 

953. 

IP  (  (K*  1 )  .GT.  179) 

954. 

C 

FILL  ALL  EXCESS  ZONES 

955. 

31 

K1  =  K  ♦  1 

956. 

DO  32  L  =  K 1,190 

95  7. 

IZONE  (L,  1)  =  NT  ♦  1 

958. 

32 

IZONE  (L ,  2)  =  NT  ♦  1 

959. 

36 

CONTINUE 

960. 

IF  (KTESI  .LI.  3) 

961. 

WRITE  (6,191) 

GO  TO  36 


GO  ?C  50 
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96  2. 
96  3. 
966. 

965. 

966. 

967. 

968. 

969. 

970. 


DO  60  K  =  1,  10  0 

60  WRITE  (6,102)  K.  IZON  3  (K  ,  1 )  ,  IZONE  (K  ,  2)  ,  TO  (IZON 
X  TO (IZONE (K, 2)  ,2) 

50  CONTINUE 
RETURN 

101  FORMAT  C1>,  'TARGETS  BY  ZONE',/, 

X '  ZONE  LONER  UPPER  (LOWER  UPPER)  •) 

102  FORMAT  ('  ’,  14 , 4  X  ,  13 , 4X  ,  13,  7X  ,  I  4, 3X,  1 4) 

END 
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972. 

SUBROUTINE  BOMB 

9 1  3. 

IMPLICIT  INTEGER  *2  (A-Z) 

974. 

REAL *4  RAN  ,  PHI ,  S  ,  C  ,  SI G  F  ,  SI  G  D  ,  S  IGX  ,  S  I G  Y, 

975. 

X  FTP  F  ,  DERR,  X,  Y,  SIN,  CCS 

976. 

c 

THE  FOLLOWING  JCL  INSERTS  TSARINA'S  COMMON  " 

977. 

// 

DD  DSN=*  .  STEP  1  .COMMON,  DI  S  P  =  S.HP 

978. 

// 

DD  *, DCB=BLK3IZE=8C3 

97  9. 

COMMON  /C3UHIT/  CBUHI  (2C0,2)  ,  IS(5*),  KCBU 

9  8  9. 

IF  (KTESI  .GT.  2)  WRITE  (6,102) 

9o1. 

NCBUHT  =  C 

982. 

KCBU  =  0 

983. 

30  40  1=1, NA 

9  34. 

I3(D  =  C 

9  8  5. 

»JW  =  ATT  (1,9) 

9  9  6. 

•MOW  -  EKD  (!IW  ,1,1) 

987. 

IP  ((MODE  .IT.  0)  .0  1.  (AIT  (I,  11)  .20.  3  00 

9c  3. 

c 

IF  (HOP*  .  J:\>.  0)  o:  TC  1 

9^9. 

c 

~  N  -  1  *  1CC*RANDT  (1.) 

9  9  0. 

c 

'0  T  D  2 

9  9  1. 

:  i 

sN  -  1  ♦  1r,0*?AN  j  (  1  .) 

9  9  2. 

'4  =  1  *  100*  -AS  (1) 

5  33. 

2 

if  c-s  , Lr.  *tt  (1,11)1  :c  > 

'I  '+  4  . 

-F  ID  = 

9  -5. 

C  ;  T  ■'  a  n 

v  9  6 . 

3 

C  )MI  N  ; ? 

'*  *7. 

IF  .IT.  C.Oj  FT:.'  =  1 

.♦  9 . 

D  v  -0 

; .  v  .  •: 

--a:t  ( : ,  7  j 

1C)1. 

*r.!l  (I,  D  Ff-7.  - 

10C',  . 

'--'IN  (l  HI) 

12)3. 

c=  .. ' i  p  m  . ) 

100  4. 

::--i.4'--*mc,.i 

1  00  5. 

„• :  o  :•  i .  *  *  -  ♦  a  "  cf5t 

10)6. 

Cnl  !.  iA'J:  ( -r  ,■  IRr  ,  KTER  I,  M  OR) 

?C  07. 

CALL  SAUL  ( 2  :  i  l.  ,  r  i  ?.  :■  .  N  :  F  S  T  ,  M  “  I ) 

1005. 

A  Z  a  -  A  T  (1,2}  ♦  ?  K  ••  P  *  °  ♦  J  r  ?  .r  *  C 

10)9. 

A  I Z  Y  =  A  7  7  ( T  ,  "•> )  ♦  K  E  R  r:  *  C  -  D  IT  P  *  S 

ion. 

F  j  .17.  /.  ■  Ai.ZX-S*  ATT  (I  ,  8  )  /  2. 

1011. 

f>0  ;ZY=A'»ZY-C*  ATT  (1,3)  /2. 

ion. 

:?  (SO  .17.  2 1  00  TO  1C 

101  i. 

D“  ATT  (1,8)  /(SS-n 

10  14. 

DX=S*D 

1015. 

DY-C*P 

1C  16. 

1  0 

CONTINUE 

1017. 

SIGX  =  ATT (1,6) 

1018. 

si  ;y  =  att  (i,i0) 

1019. 

DO  20  M=1,NS 

1020. 

IF  (EMDW  *  L".  0)  NCBOUT  =  HCPUHT  *  1 

1021. 

IF  (SCSUHI  .GT.  200)  30  TO  60 

1  C  2  2 . 

IP  (MODE  ,  LT.  0)  GO  TO  13 

1023. 

C 

IF  (MODE  .  FQ.  0)  GO  TO  11 

1  024. 

c 

RN  =  PANDT  ( 1 . ) 

1025. 

c 

GO  TO  12 

1  026. 

2  11 

PN  =  ?  A  N  D  (  1 • ) 

1027. 

RN  =  PAN (1 ) 

1028. 

C  12 

IF  ( r  N  .GT.  WPNP  w  L  (  NW  )  )  GO  TO  I"1 

10  29. 

IF  (PN  .GT.  WPNREL(NW))  GO  "0  17 

10  30. 

1  3 

CONTINUE 

10  31. 

CALL  GAUSS (SIGX, X, K7SST,M0DF) 

1  0  32. 

CALL  GAUSS  (SIGY,  Y,  KTEST,  MODE) 

1  0  3  3. 

BAGZX=BDGZX+X*S+Y*C 

10  34. 

BAGZY  =  BDGZY  +  X*C*-Y*S 

1  0  3  5. 

IF  ((KTEST  .GT.  0)  .OR.  (NPEI’II  .  LT.  -1)) 

1036. 

WRITE  (6,101)  I,  H,  BAGZX,  BAG7.Y 

1037. 

IF  (EMDW  , GE.  0)  GO  TO  16 

1  038. 

CBUHT  (NCBUHT,  1)  ■=  BAGZX 

1  039. 

CBUHT  {NCBUHT,  2)  =  BAGZY 

1040. 

GO  TO  18 

1 0  U  1 . 

16 

IF  ( (BAGZX+8AGZY)  • LT.  -500)  GO  TO  IP 

1042. 

INDEX  *  I 

1043. 

CALL  TESTHT  (INDEX,  B  A  GZ  X,  B  AGZY  ,  N  W) 

1044. 

GO  TO  18 

1045. 

17 

IF  (EMDW  .LT.  0)  CBUHT  (NCBUH’- ,  1)  =  -10',0n 

1046. 

18 

BDGZK=BDGZX+DX 

104  7. 

BDGZY=BDGZY ♦DY 

KF7T 


&D-A09G  662 

RAND  CORP  SANTA  MONICA  CA 

TSARINA:  USER'S  6UIDE  TO  A  COMPUTER 
JUL  SO  D  EMERSON 

F/6  1/5 

MODEL  FOR  DAMA6E  ASSESSMENT— ETC (U> 
F*9620-77-C-0023 

UNCLASSIFIED 

RANO/N-1A60-AF 

NL 
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1048.  20  CONTINUE 

1049.  40  CONTINUE 

1050.  RETURN 

1051.  60  NRITE  {6.  103) 

1052.  STOP 

1053.  101  PORHAT  ('  •,  ‘ATTACK  #*,!«,•  BONE  »',T4,'  X-DIH  ',18. 

1054.  X  •  Y-DIN  18  | 

1055.  102  PORHAT  (•  1  30  <'*•),  *  BOHB  IMPACT  AND  HIT  DATA  •  ,  30  (•  *  • )  ./,/) 

1056.  103  PORNAT ( *0* . 'THE  CBUHI  ARRAY  HOST  BE  ENLARGED  TO  •, 

1057.  X  ' ACCOHHODATE  HORE  CBO  NEAPONS1) 

1058.  END 
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1060. 

subroutine  testht  (i,bx,by,nw) 

1061. 

INPIICIT  INTEG2B  *2  (A.-Z) 

1062. 

INTEGER  *4  AID.  HELP,  nINO,  HAXO,  IV.  1 

1063. 

SEAL  *4  DHAX,  DR,  PP 

1064. 

c 

THE  FOLLONIMG  JCL  INSERTS  TSARINA'S  COHHON 

1065. 

// 

DD  DSN=«.STEP1. COHHON, DISP*SH? 

1066. 

// 

DD  *, DCB*BLKSIZE=8C0 

1067. 

c 

1068. 

DIMENSION  FLAG  (6)  ,  DB  (9)  ,  PP(6) 

1069. 

c 

1070. 

XY  =  BX  ♦  BY 

1071. 

NN=XY/500 

1072. 

K  =  HAXO  (NN*1  ,1) 

1073. 

K  =  HINO (K , 99) 

1074. 

LL  =  0 

•1C  7  5. 

IF  (K  .  E Q.  1)  GO  TO  10 

1076. 

LL  =  IZONE  (K-1,  1) 

1077. 

IF  (K  •  FQ.  2)  GO  TO  15 

1078. 

IF  ((IZONS(K-1,1)  ,SQ.  IZONE  (K-  2,  2) )  .  ANi 

1079. 

X  (IZO  NE  (K-2,2)  ,NE.  1))  LL  =  IZON2(K, 

1080. 

GO  TO  15 

1081. 

19 

LL  =  IZONE  (1,  1) 

1082. 

15 

CONTINUE 

1083. 

LU  *  IZONE  |  f  K ♦  1 )  ,  2) 

108  4. 

IF  (KTEST  .GI.  3)  WBITE  (6,102)  I,  LL 

1085. 

DO  100  IL  =  LL.  LO' 

1086. 

c 

CONSIDER  ALL  TARGETS  BETNEIN  THE  LIMITS  OF 

1087. 

L  =  TO(IL,2) 

1088. 

IF  (L  .LF.  0)  GO  TO  100 

1089. 

IF  (  (TGT  (L,  12)  *161(1,13))  .GT.  500|  I 

1090. 

NTGT  *  TGT  (L,  10) 

1091. 

HFLAG  *  0 

1092. 

IF  ((NTGT  .NE.  SHELT)  .OP.  (ALLHC  .NE.  1)) 

109  3. 

HFLAG  *  1 

1094. 

DR  (9)  *  EHD(N*,MTGT,1D) 

1095. 

29 

DR  ( 1)  »  EHD(NH,NTGT,1) 

1096. 

DHAX  «  DR  (1) 

1097. 

DE  (2)  »  END  (NN ,  NTG  T ,  2) 

1C98. 

IF  (DHAX  .LT.  DR  (2))  DHAX  *  DR  (2) 

1099. 

HELP  =  END (NH,  NTGT,  9) 

1100. 

DO  25  FLG  =  1,5 

1101. 

AID  *  1  0**  (6* FLG) 

1 1C  2. 

FLAG  (FLG)  =  HSLP/AID 

1193. 

25 

HELP  *  HELP  -  AID* FLAG (FLG) 

1104. 

FLAG (6)  =  HELP 

1105. 

c 

110  6. 

DO  30  FLG  =  0,6 

1107. 

DR  (FLG  +  2)  *  0 

1108. 

IF  (FLAG  (FLG)  .IT.  4)  GO  TO  30 

1109. 

IF  (FLAG  (FLG)  .LT.  6)  GO  TO  28 

1110. 

AID  -  EHD(NN,NTGT,  (FLG* 2) ) 

1111. 

DR (FLG*2)  =  AID/1000 

1112. 

PP  (FLG)  *  (AID  -  1000*DR(FLG*2)  ) /IOC  * 

1113. 

IF  (FLAG  (FLG)  .E S.  8)  GO  TO  30 

1114. 

GO  TO  29 

1115. 

28 

DR  (FLG*2)  *  END  (Ni  ,  NTGT,  (FLG*  2)  ) 

1116. 

IF  (FLAG (FIG)  .NE.  4)  GO  TO  30 

1117. 

29 

IF  (DR  (FLG*2)  .GT.  DHAX)  DHAX  =  DE  (FLG*: 

1118. 

30 

CONTINUE 

1119. 

40 

CONTINUE 

1120. 

D  *  DHAX 

1121. 

D  *  1 . 414*D 

1122. 

IF  ((TGT(L.I)  -  D)  .GT.  BX>  GO  TD  100 

1123. 

IF  ( (TGT  (L ,4)  ♦  D)  .LT.  BY)  GC  TO  100 

1124. 

IF  ( (TGT  (L,5)  ♦  D)  .  LT.  BX)  GO  TO  100 

1125. 

IF  ( (TGT  (L , B)  -  D)  .GT.  BY)  GO  TO  100 

1126. 

IF  (KTEST  .GT.  4)  WRITE  (6 , 10  1)  I,  L,BX,  BY , 

1127. 

CALL  HITTGT (I,L,BX,BY,NW,  NTGT , DR , PP, FLAG, 

1128. 

100 

CONTINUE 

1129. 

HFLAG  «  0 

1130. 

DO  120  L  *  1  ,  NT 

1131. 

IF  ((TGT(L,12)  ♦  TGT  (L,  13)  )  .IS.  500)  ( 

1132, 

NTGT  -  TGT (L, 10) 

1133. 

DR  (1)  •  BHDfNN,  NTGT,  1) 

1134. 

DHAX  •  DR ( 1) 

1135. 

IF  ({NTGT  ,E0.  1)  •  AND,  (NCR  .GT.  0))  GO  ' 

TO  100 


GO  TO  20 


115 


88 


1136. 

1137. 

1138. 

1139. 
1190. 

1141. 

1142. 

1143. 

1144. 

1145. 

1146. 

1147. 

1148. 

1149. 
1159. 
1151. 
115  2. 

1153. 

1154. 

1155. 

1156. 

1157. 

1158. 

1159. 

1160. 
1161. 
1162. 

1163. 

1164. 

1165. 


06(2)  •  ZHD(BH,  MTST,  2) 

IF  (DHAX  .IT.  DB  (2)  )  DHAX  *  DB  (2) 

HELP  *  BHD  (*B,  BIG?.  9) 

DO  10 5  no  »  1.5 
AID  »  10**  (6- FLG) 

FLAG  (FLG)  *  HELP/AID 
135  H2LP  *  HELP  -  AID*  FLAG  (FLG) 

FLAG  (6)  *  HELP 

DO  110  FLG  *  1,6 
DB  (FLG*2)  •  0 

IF  (FLAG (FLG)  . LT.  4)  GO  TO  119 
IF  (FLAG  (FLG}  .  LT.  6)  GO  TO  106 
AID  «  EHD  |BB  ,  HTGT,  (FLG*  2) ) 

DB (FLG+2)  a  AID/1909 

PP(FLG)  *  (AID  -  1000DB  (FLG»2)  )/100. 

IF  (FLAG  (FLG)  .BQ.  8)  GO  TO  119 
GO  TO  108 

106  DB  (FLG * 2)  «  EHD  (RH,  HTGT,  (FLG+21  I 
IF  (FLAG(FLG)  .RE.  4)  GO  TO  110 
108  IF  (DR  (FLG*2)  ,GT.  DHAX)  DHAX  =  DR(PLG*2) 

110  CORIIROJ 

115  IF  (KTEST  ,GT.  4)  HBITE  (6,191)  I.L.BX, BY, DHAX, HELP 
CALL  HITTGT(I,L,BX,BI,RR»  HTGT.DR,  PP.FLAG.HFLAG) 

120  COHTIHOE 
sbtor* 

101  FOP  HA  I  (•  •  .lOX.'TESTHIT:  ATTACK  ',13,'  TGT  ',14,  •  X-DIH 

X  16  ,  •  T-D1H  * ,  16  ,  F8.9,  18  ) 

102  FOBHAT  (*  *  ,23X, 'ATTACKER  ',13,'  TARGET  BARK  LIHITS  ',216./) 

EHD 
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1 1o7. 
1166. 

1169. 

1170.  , 

1171. 

1172. 

1173. 

1174. 

1175. 

1176. 

1177. 

1178. 

1179. 

1180. 
1181. 
1182. 

1183. 

1184. 

1185. 

1186. 

1187. 

1188. 

1189. 

1190. 

1191. 

1192. 

1193. 

1194. 

1195. 

1196. 

1197. 

1198. 

1199. 

1200. 
1201. 
1202. 

1203. 

1204. 

1205. 

1206. 

1207. 

1208. 

1209. 

1210. 
1211. 
1212. 

1213. 

1214. 

1215. 

1216. 

1217. 

1218. 

1219. 

1220. 
1221. 
12 22. 

1223. 

1224. 

1225. 

1226. 
1227. 
122  8. 

1229. 

1230. 

1231. 

1232. 

1233. 

1234. 

1235. 

1236. 

1237. 

1238. 

1239. 

1240. 

1241. 

1242. 
124  3. 


SOB  ROUTINE  HITTGT(I,L,BX,BY  ,NN,N?GT,  D?  ,  PF,  FLAG,  MFI  AG) 

IMPLICIT  INTEGER  *2  (A- Z) 

INTEGER  *4  RID 

REAL  *4  DD,DR,S.C,CO,T,D,RRO,F,FX,PY,FAC,F1,F2,PP, 

X  TEST,  0LD1.0LD2,  TO ,R , Rt ,DN, D2 , R, RL , PS, TOT, Z,  SIS.  COS 

C  THE  FOLLONISG  JCL  INSERTS  T SRRINR 1 S  COHBON  "BASIC" 

//  DD  DSN=*.  STEP1. COMMON, DISP=SHR 

//  DD  *, DCB*BLKSIZE*800 

DIMENSION  DN<4),  P(4),  IS  (4)  ,  D2(4),  DS  (9)  ,  FP(6>,  PIRG  (6)  ,FRC  (9) 
C 

INSIDE  =  0 
HIT  1  «  0 
DO  2  NR  =  1,9 
2  PAC(NF.|  =  0.0 

S  =  SIN  (TGT  11,9)  /57. 3) 

C  =  COS  (TGT  (L,9)  /57. 3) 

CO=  c 
c 

D  »  0 
T  *  0 
FI  =  0.0 
F2  =  0.0 
NSTRBT  =  1 
NEND  =  9 


4  CONTINUE 

DO  100  NP  =  NSTRRT,  NEND 
IF  (NP  .GT.  1)  GO  TO  5 
DD  =  0 
GO  TO  30 

5  NR  *  NP  -  1 

IF  (NR  .GT.  2)  GO  TO  10 

IF  ( ( NIGT.  EQ.  1)  .  RN  D .  (NCR.  NE.O)  .RND.(NR.GT.  1))  GO  TO  105 
IF  ((NR  .EQ.  2)  .RED.  (DB(NR)  .  EQ.  0.0))  GO  TO  100 
DD  ‘  DR  (NR) 

GO  TO  20 

10  IP  (NR  .LT.  9)  GO  TO  15 
DD  =  DR  (9) 

GO  TO  20 

15  IF  (FLRG  (NR-2)  .LT.  4)  GO  TO  85 
DD  =  DR  (NR) 

IF  ( (FLRG  (NR-2)  .EQ.  5)  .RND.  (HIT1  .EQ.  0))  GC  TO  9t 
IF  ( (FLRG  (HP-  2)  .EQ.  8).AND.(BIT1  .EQ.  0))  GOTO  «9 
20  IF  (DD  .EQ.  0.0)  GO  TO  30 
T  *  <S  ♦  CO)  *DD 
D  =  (S  -  CO)  *DD 
30  XI  =  TGT  (L, 1 )  -  T 
Y1  =  TGT  (L,2)  ♦  D 
X2  =  TGT  (L,  3)  ♦  D 

12  =  TGT  (1,4)  ♦  T 
X3  =  TGT  (1,5)  ♦  T 

13  =  TGT  (L,6)  -  D 
X4  »  TGI  (L, 7)  -  D 
Y4  *  TGT  (1,8)  -  T 

IF  ( (8X  .LT.  XI)  .OR.  (BX  .GT.  X 3)  >  GO  TO  103 
IP  ((BY  .LT.  14)  .OR.  (BY  .  GT.  Y  2)  )  GO  TO  107 
IF  (TGT  (L,  9)  .EQ.  0)  GO  TO  50 
T  -  S/CO 
C  »  1./T 


IP 

((BX 

•  LT. 

X2) 

.  RND. 

(BY 

.GT. 

(Y1*C*  (BX-X1 ) )  )  ) 

GO 

TO 

1*0 

IF 

((BX 

.GT. 

X2) 

.RND. 

(BY 

.GT. 

(Y2-T*  (BX-X2) ) )  ) 

GO 

mO 

1  *0 

IF 

((BX 

•  GT. 

X  4 ) 

.RND. 

(BY 

.LT. 

(Y4*C* (BX-X4) )) ) 

GO 

TO 

100 

IF 

((BX 

.LT. 

X4) 

.AND. 

(BY 

rLTi 

(Y1-T* (BX-X1) )) ) 

GO 

TO 

1 00 

50  CON TINOE 

IF  (NP  .NE.  1)  GO  TO  56 
INSIDE  »  1 

IF  (  (EMD(NN,NTGT,  19)  .  EQ.  *1)  .  OR,  (NTGT  .  EQ.  SHELT)  )  GO  TO  1rC 
DR  (1)  «  EMD(NI,  NTGT,  10) 

PR  (2)  «  EMD  (N  N  ,  NTGT,  11) 

DM  AX  •  DR  ( 1 ) 

IF  (DRAX  .IT.  DR  (2))  DM  AX  «  DR  (2) 

DO  54  PLG  •  1,6 
DR(PLG*2)  •  9 

IF  (PLRG(PLG|  .LT.  4)  GO  TO  54 
IP  (FLRG  (PLG)  .IT.  6)  GO  TO  51 
RID  •  END  (RR,  NTGT,  (PLG*  11)) 
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1244. 

1245. 

1246. 

1247. 
1246. 

1249. 

1250. 

1251. 

1252. 

1253. 

1254. 

1255. 

1256. 

1257. 

1258. 

1259. 

1260. 
1261. 
1262. 

1263. 

1264. 

1265. 

1266. 

1267. 

1268. 
1269. 
127  0. 
1271. 
127  2. 

127  3. 

1274. 

1275. 

1276. 

1277. 

1278. 

1279. 

1280. 
1281. 
1282. 

128  3. 

128  4. 

1285. 

1286. 

1287. 

1288. 

1289. 

1290. 

1291. 

1292. 

129  3. 
1294. 
129  5. 

1296. 

1297. 


DB(PLG«2)  *  AID/1000 

PP(FLG)  «  (AID  -  1000*08  (PIG* 2)) /1 0*. 

IF  (FLAG  (PLG)  .BQ.  8)  GO  TO  54 
GO  TO  52 

51  D8  (PLG  +  2)  «  8HD(Nf,BTGT,  (PIG’11)) 

IF  (FLAG (FLG)  .88.  4)  GO  TO  54 

52  IF  (DB  (FLG42)  .GT.  DBAS)  DBA!  ■  DR(FLG*2) 

54  COBTIBDE 

GO  TO  100 

56  IF  (  (KTEST.GT.2)  .08.  (BP8IH  T.LT.  0)  )  BRITT  (6. 10 1)  L,  BX,  BY,  INSIDS.RR,  DP 
IF  (88  .ME.  1)  GO  TO  60 
HIT  1  =  1 

MHIT(L)  *  8HIT  (L)  ♦  1 

IF  (INSIDE  .EQ.  0)  OHIT(L)  *  OHIT(L)  ♦  1 
60  IF  ( (HTGT  .EQ.  1)  .AMD.  (BC8  .88.  0)1  GO  TO  110 

R2S0LTS  INCLUDE  AM  ESTIHATE  OF  THAT  FRACTION  OF  THE  TARGET 
AREA  THAT  IS  COVERED  BI  CIRCLES  OF  RADIUS  DD1  AMD  DD2. 

COHPUIE  DISTANCES  NOBHAL  TO  THE  FOUR  SIDES  OF  THE  TARGET. 

IF  (TGT  (L.  9)  .EQ.  0)  GO  TO  6  2 
ID  =  FI  ♦  C* (BX-X1 )  -  BY 
DM  (1)  =  S*YD 

YD  =  Y2  -  T* (BX-X2)  -  BY 

DM  ( 2)  *  CO*YD 

YD  =  BY  -  Y4  -  C*  (BX-X4) 

DM  (3)  *  S*YD 

YD  *  BY  -  Y1  ♦  T*(.BX  -  Y1) 

DM  (4)  =  CO* YD 
GO  TO  64 
62  CONTINUE 

DM  (1)  =  BX  -  XI 
DM  (2)  *  Y2  -  BY 
DM  (3)  *  X3  -  BX 
DM  (4)  =  BY  -  Y1 
64  CONTINUE 
TOT  *  O.C 
DO  66  N  »  1,4 
D2(S)  *  DD-DM(N) 

IF  (D2(N)  ,LS.  0,0)  GO  TO  66 
TOT  *  TOT  ♦  D2(N)*D2(N) 

66  CONTINUE 

IF  (KT2ST.GT.  5)  MBITS  (6,1102)  TOT,  (DM  (M)  .8*1.4),  (D2  (1°)  .4  =  1,4) 

IF  (I0T  .LE.  DD* DD)  GO  TO  68 
IF  (HR  .ME.  1)  GO  TO  100 
HIT1  *  0 

MHIT(L)  =  MHIT(L)  -  1 
OHIT(L)  -  OHIT(L)  -  1 
GO  TO  IOC 


SPECIAL  TR  BATH  ENT  IS  REQUIRED  NHBM  SHELTERS 
ARE  HANDLED  HITS  THE  B08TE  CARLO  NODE. 


1298. 

68 

IF  (BFLAG  .EQ.  0)  GO  TO  74 

1299. 

NS  «  TGT (L, 14)  -  1090 

13C0. 

IF  (NR  .EQ.  1)  GO  TO  70 

1391. 

IF  (NR  .NE.  9)  GO  TO  74 

130  2. 

GO  TO  72 

130  3. 

70 

P2  (NS,  3)  *  1.  -  (1.  -  P2  (NS, 3) )  •  (109 

-  8HD(NM,NTGT,  12) )  /1 00 

13)4. 

P2  (NS, 4)  *  1.  -  (1.  -  P2  (NS, 4)  )*  (100 

-  E8D(NM,NT0T,14))/1''1 

1305. 

GO  TO  74 

1396. 

72 

P2(NS,5)  *  1.  -  (1.  -  P2  (NS, 5)  (  *  (100 

-  EHD (BM.8TGT ,13))/1C9 

1307. 

IF  (KTBST  .GT.  5)  NRITE  (6,1101)  N3, 

(P2(BS,E)  ,  8*3,5) 

1398. 

GO  TO  102 

1309. 

74 

CONTINOB 

1310. 

BL  *  DD 

1311. 

80 

C08TIM08 

1312. 

AL  »  3. 1416*RL*BL 

1313. 

DO  84  8-1,4 

1314. 

F(8)  ■  0.0 

1315. 

8  •  DD  -  Dt(B) 

1316. 

IF  ((8  .GT.  0.0)  .AMD.  (8  .68.  8L>) 

F(N>  *  1.0 

1317. 

IF  (F (8)  .EQ.  1.0)  GO  TO  83 

1318. 

IF  ( (8  .IT.  0.0)  .AND.  (-8  .GT.  RL)> 

GO  TO  83 

1319. 

TF  (8  .IT.  0.0)  8  ■  -8 

1320. 

IF  (8  .IQ.  C. 0)  GO  TO  82 

Z  *  R/RL 

SHO  «  2.*ATAN  (  (1./(Z*Z)-1.)**  (.5)  ) 

A  *  iL*RL*(RHO  -  SIR  (SHO)  )  /2. 

IP  (DR  (R)  .GT.  DD)  A  «  AL  -  A 
P (R)  *  1.  -  A/AL 
GO  TO  8  3 
F(N)  *  .5 

IP  (KTEST. GT. 5)  RRITE  (6 , 1 1  01)  N  ,R,  Z,  A ,  AL ,  F  (N)  ,  DD 
CONTINUE 

PX  =  1.  -  P(1)  -  P  (3) 

PI  *  1 .  -  P  (2 )  -  P(») 

IP  (PX  .LT.  0.0)  PX  =  0.0 

IP  (PI  .IT.  0.0)  PI  =  0.0 

IP  (KTEST  .51.4)  HRITE  (6,1002)PX,  FT,  8,  PL,  A,  At,  (P  (N)  ,8*1  ,4) 

ROTE  THAT  THE  OSS  OP  PX  AHD  PI  PROVIDES  ORLY  AH  APPFOXIHATE  RESULT 
PAC  (HR)  =  PX*  PI»  AL/  (TGT  (L  ,  1 2)  *TGT  (L,  1 3)  ) 

PAC  (HR)  *  AHIH1  (1.  ,FAC(NF.)  ) 

IP  (HR  .  LT.  3)  GO  TO  84  4 

IP  (FLAG  (HR-2)  .IT.  6)  GO  TO  844 

IP  (PLAG  (HR-2)  -  7)  841,  843,  842 

PAC  (HR)  =  (3.0*F1  ♦  PAC  (HR)  )  *PP  (HR -2)  /4.0 

GO  TO  844 

IF  (HIT1  .  EQ.  0)  GO  TO  844 

PAC  (HR)  =  (3.0«P2  ♦  PAC  (HR)  )  *PP  (HR-2)/4.0 

CONTINUE 

PS  =  1.  -  PAC  (HR) 

P  (L.HP)  «  1.  -  (1.  -  P  (L ,  HR) )  *PS 
GO  TO  90 
XHP.  «  NR 

IP  ((EHD(NN.NTGT.IO)  .HE.-1)  .AND.  (NTGT.  NE.  SHELL)  )  XNP*8R*9*I8STtE 
IP  (FLAG  (HR-2 )  -  2  )  86  ,  88  ,  87 

IP  (PLAG  (HR-2)  .30.  0)  GO  TO  90 

P(L,NP.)  -  1.  -  (1.  -  P  (L ,  NR) )  •  (1.-  (PAC  (1)*EHE  (RH.HTGT,  XHP)  )  /10  0.  ) 
GO  TO  90 

I?  (HIT  1  .  EQ.  0)  GO  TO  90 

P(L,RS)  *  1.  -  (1.  -  P(L,HR))*(1.-(FAC(2)»EHE(HH,TTGT,XNR))/19''.) 
CONTINUE 

IP  (HR  .EQ.  2)  P2  »  PAC  (2) 

IP  (HR  .HE.  1)  GO  TO  100 
ri  *  PAC  (1) 

IP  (TGT  (L,  11)  .LT.  1.)  GO  TO  100 

IP  (RHIT(L)  .GT.  25)  GO  TO  100 

DO  95  J  «  1,  1ST 

IP  (HHIT(J)  .EQ.  0)  GO  TO  109 

IP  (NHXT(J)  .RE.  L)  GO  TO  95 

HIT  ( J,  1 ,  RHIT  (L) )  * BX 

HIT  (G,2,NHI?(L))*BX 

HIT  (J,3,NHIT(L))*RH 

GO  TO  100 

COHTIROE 

CONTINUE 

IP  ( (NTGT  .HE.  SHBLT)  .03.  (RSTART  .EQ.  10))  GO  TO  102 
HSTART  *  10 
HEHD  *  10 
GO  TO  4 
CONTINUE 

IP  (KTEST  .GT.  3)  RRITE  (6 , 100 1)  L  ,  (FAC  (K)  ,  K*  1  ,8)  ,  (P  (L ,  J)  ,  J*  1 ,«) 

COHTIROE 

RETURN 

CONTINUE 

DO  120  J  *  1,5 

IP  (RRf(J)  .EQ.  0)  GO  TO  130 

IF  (RRR  (J)  .RE.  L)  GO  TO  120 

HITR(J,1 , HHIT  (L) )  *  BX 

HITR(J,2,RHIT(L))  *  BT 

HITR(J,  3, HHIT  (L) )  •  HR 

CONTINUE 

CONTINUE 

BSTUBR 

PORHAT  ( •  *,19X,  •••••»  HITTGT  HHIT(  •  ,  1 3.  • )  «  ,  *16 ,9P8.  3) 

PORHAT  ( '  «,  •  PI  '  ,  P6. 0  ,•  PI  P6.0,  6  X,  4P8.  0,  4P8. 4  ) 

1  PORHATM  TGT  13,  •  PAC  •,  8P6.3,  •  PK  »,»*6.3) 

1  PORHATM  ',  I6.9P12.3  ) 

2  PORHATM  ■  ,  P12.3,  BPS. 3  ) 

END 


GO  TO  130 
GO  TO  120 

BX 

BT 

HR 


HHIT( •  ,13,')  •  ,*I6,9P8.3) 

PI  ',  P6.0,  6X,*P8.0,4P8.4  ) 
PAC  •,  8P6.3,  *  PK  \»*6.  3) 
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1397. 

SUBROUTINE  GAUSS  (S, », KTEST, BODE) 

1398. 

INTEGER  *2  KTEST, RODE 

1399. 

IF  ( (KTEST  .GT.  7)  .OB.  (RODS  .LT.  0)) 

GO  TC  50 

1400. 

A»0.0 

1401. 

C 

IF  (BODE  ,E0.  0)  GO  TO  20 

1402. 

DO  10  1*1. 12 

1403. 

T  «  BAR  (1) 

1494. 

c 

T  ■  RAID?  (1.) 

1495. 

10 

A  «  A  ♦  I 

1406. 

£ 

SO  70  40 

1497. 

c 

20 

DO  30  I»1,12 

1498. 

c 

Y"BAID(1.) 

1409. 

c 

30 

A  «  A  ♦  T 

1410. 

c 

40 

»  «  (A-6.  0)*S 

1411. 

»  »  <A-6.0)*S 

1412. 

RETOBR 

1413. 

50 

COHTIIUS 

1414. 

7  •  0.0 

1415. 

RETOBR 

1416. 

BSD 

1418. 

SBBROBIIR5  CHECKS 

1419. 

IHPLICI?  INTEGER  *2  (A- Z) 

1420. 

IRTEGFR  *4  HS7A?,  RHODES 

1421. 

REAL  *4  SEAT 

1422. 

C 

THE  P3LL0HIRG  JCL  IRSBRTS  TSARINA '  S  CORHOR  "BASIC" 

1423. 

// 

DD  DSR«*.STEP1.COHHOR,DISP»SHH 

1424. 

// 

DD  *, DCB-BLRSIZE.89C 

1425. 

COHROR  /STATS  /  STAT (503 , 17) , BSTAT (8) , BTRIAL, ITRIAL.RSI AT 

1426. 

CORROR  /CORTRL/  SREP.NPLOT , IRR  ,  INL, CHARGE, RSAY7, LIST, EJHEH 

1427. 

RC-0 

1428. 

RR»0 

1429. 

LHOLES  =  10000 

1430. 

DO  40  HER  *  1,  5 

1431. 

c 

CYCLE  THRO  AS  BARI  AS  8  RUHRAY/TAXIHAYS. 

1432. 

XRR  •  RRR(HRH) 

1433. 

n 

EXIT  IF  10  TARGET  RUBBER  (IRR)  FOURD. 

1434. 

IF  (IRR  .  SQ.  0|  GO  TO  50 

1435. 

RH"RH*1 

1436. 

IF  (RH IT  (IRR)  .EQ.  0>  GO  TO  40 

1437. 

IF  (KTEST  .GT.  4)  HBITE  (6,102)  IRR 

1438. 

IIDEX  •  RRR 

1439. 

CALL  RORRAY  (IRDBX,  IRR,  ICORD,  RHODES) 

1440. 

c 

RORRAY  SOBRODTIR!  3STURRS  ICORD  *  0  IF  RURRAY  HAS  REQUIRED  SPACE 

1441. 

c 

ICORD  *  1  IF  ROT. 

1442. 

c 

1443. 

IF  (ICORD  .EQ.  1)  RC"HC*1 

1444. 

IF  (RBOLES  .LT.  LHOLES)  LHOLES  •  RHOLES 

1445. 

IF  ( (RPRIRT  .EQ.  4)  .OR.  (IPRIRT  .EQ.  6)) 

1446. 

X  RRITE  (6,  103)  ITRIAL,  IRR,  RHIT  (IRR)  ,  RHOLES 

1447. 

40 

CORTIROE 

1448. 

50 

IF  (RC  .  EQ.  RR)  SO  TO  60 

1449. 

IF  (RPRIRT  .LT.  3)  RFITE  (6,101) 

1450. 

RSTAI  •  RSTAT  ♦  1 

1451. 

60 

CORTIROE 

1452. 

IF  ( (RRBP  .EQ.  1)  .AID.  (1C  .EQ.  RR) )  GO  TC  70 

1453. 

RE TOR  R 

1454. 

70 

RSTAT  (1)  *  BSTAT  (1 )  ♦  LHOLES 

1455. 

RSTAT  (2)  ■  BSTAT  (2)  *  LHOLES* LHOLES 

1456. 

REPAIR  ■  LHOLES 

1457. 

IF  (LHOLES  .EQ.  10900)  REPAIR  *  0 

1458. 

RETDRR 

1459. 

101 

FOR  BAT  ('  AT  LEAST  ORE  RORRAY  IS  ARAILABLI') 

1460* 

102 

FOREAT  ( •  CHECK  TARGET  14) 

1461. 

103 

FORHATC  •.  •TRIAL*  ,14,'  TGT  *  ,  14  ,  *  HITS*, 14,*  REPAIRS', IT 

1462. 

ERD 

r 

-x 

93 

1464. 

SUBROUTINE  RUNWAY  (HRH  >  IPS,  ICOSD,  NHOLES) 

1455. 

IMPLICIT  INTEGER  *2  (A-Z) 

1466. 

INTEGER  *4  NHOLES,  I HOLE,  HSTAT 

1467. 

REAL  *4  STAT,  TH,  TH1 ,  TH2 ,  XX,  YT,  SIN,  COS 

1 

1468. 

c 

THE  FOLLOWING  JCL  INSERTS  TSARINA'S  COHHON  "BASIC" 

1469. 

// 

DO  DSN=*.STEP1. COMMON, DISP=SHF 

1470. 

// 

DD  *,DCB=BLKSIZB=e00 

1471. 

COMMON  /STATS  /  ST  AT  (5C0 , 17)  ,  MSTA  T  (8)  ,  NTRIAL,  ITRIA  L.NSTAT 

1472. 

COMMON  /HITS/  XN  (25  0)  ,  YN  ( 250)  ,  NZ  (250 ) 

1473. 

COHHON  /CONTRL/  NREP, NPLOT, INN ,INL, CHANGE, NSAVE, LIST, NJHEM 

1474. 

DIMENSION  NTEST (250) ,  YH(250,2) 

1475. 

c 

1476. 

c 

CHECKS  FOR  THE  EXISTENCE  OF  THE  SPECIFIED  RDNNAY  MINIHUMS  (MCL  7 

1477. 

c 

MCN)  OH  EACH  RUNHAY  AND  DESIGNATED  TAXIWAY  (TYPE  *1  TARGETS). 

1478. 

c 

SIOPS  SEARCHING  A  GIVEN  RUNHAY  WHENEVER  REQUIREMENT  IS  SATISFIED. 

•1479. 

c 

1480. 

TH=TGT (IRW.9) /57. 3 

1481. 

c 

1482. 

c 

ESTABLISH  ORIGIN  (XO,  YO)  FOR  A  RECTANGULAR  COORDINATE  SYSTEM  WITH 

1483. 

c 

THE  X-AXIS  ON  THE  MORE  SOUTHERLY  EDGE  OF  THE  RUNHAY. 

1484. 

c 

148  5. 

NHI  =  0 

1486. 

NHOLES  =1000 

1487. 

DO  5  N  -  1.  250 

1488. 

5 

NZ  (N)  =  0 

1489. 

IF  (TGT  (IRH,  12)  .GT.  TGT(IRi,13))  GO  TO  10 

1490. 

»DI5=1 

1491. 

XO  =  TGT  (IRH  .  1) 

1492. 

YO=TGT (IRH, 2) 

1493. 

LTH  =  TGT  (IRH,  13) 

1494. 

HID  *  TGT  (IRH  ,12) 

1495. 

GO  TO  20 

1496. 

10 

NDIR=2 

1497. 

XO=TGT  (IRH  ,7) 

1498. 

YO=TGT  (IRH, 8) 

1499. 

LTH  *  TGT  (IRH,  12) 

1500. 

HID  =  TGT  (IRH  ,13) 

.1501. 

20 

CONTINUE 

15C2. 

IF  (KTEST  .  GT.  4)  H  RITE  (6, 100 4) IRH, XO, TO, LTH , HID, MCL,  MCH 

1503. 

IF  (MCH  .GT.  HID)  GO  TO  320 

1504. 

NHIT1  *  NHIT(IRH) 

1505. 

DO  5C  I  =  1,  NHI T 1 

1506. 

IF  (EHD(HITR(HRH,3,I),1,1)  .LT.  0)  GO  TO  50 

1507. 

NTH  =  HITR  (MEW, 3, 1) 

1508. 

GO  TO  60 

1509. 

50 

CONTINUE 

1510. 

60 

CONTINUE 

1511. 

NON  *  1 

1512. 

ENDW  =  END (NTH ,1,1) 

1513. 

DO  70  1*1,  NHIT1 

1514. 

IF  (HITR  (HRH,  3,1)  .  SQ.  NTH)  GO  TO  70 

1515. 

IF  (EMD  (HITR  (HRH,  3,1)  ,1,1)  .L-".  0)  GO  TO  70 

1516. 

NON  *  0 

1517. 

EMDH  =  0.0 

1518. 

GO  TO  80 

1519. 

70 

CONTINUE 

1520. 

80 

CONTINUE 

1521. 

DO  140  1=1,  NHI T 1 

1522. 

C 

TRANSFORM  HIT  COORDINATES  TO  FUNWAY  COORDINATES. 

1523. 

SHI  *  NHI  ♦  1 

1524. 

XB  *  HITR  (MFH,  1,1) 

1525. 

TB  =  HITR  (HRH  ,2,1) 

1526. 

IF  (EHD(HITR(HRH,3,I)  ,1,1)  .LT.  0.)  NZ  (I)  *  1 

1527. 

IF  (TH  .SQ.  0.0)  GO  TO  11C 

1528. 

XX-XB-XO 

1529. 

YY*YB-YO 

1530. 

r  *  (xx*xx*rr*rr)  *•  (0. 5) 

1531. 

IF  (KTEST  .GT.  7)  WRITE  (6,1010)  R.XX.YY 

1532. 

TH1  •  ATAN ( YY/XX) 

1533. 

IF  (XX  .LT.  0.0)  TH1  -  TH1  ♦  3.1416 

153  4. 

TH2  *  TH1  ♦  TH 

1535. 

IF  (NDIR  .EQ.  2)  TB2  *  TH 2  -  1.5706 

1536. 

XV  (I)  «B*COS(TH2) 

1537, 

IN  (I)  *R*SIN  (TH2) 

1538. 

IF  (KTEST  . GT.  6)  HR ITE  (6 , 1 009)  I ,XN  (I )  ,TN  (I) 

1539. 

GO  TO  130 

1540. 

110 

IF  (NDIR  .IQ.  2)  GO  TO  120 

& _ 

J 
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1541. 
154  2. 

1543. 

1 544. 

1545. 
154  6. 

1547. 

1548. 

1549. 

1550. 

1551. 

1552. 

1553. 

1554. 

1555. 

1556. 

1557. 

1558. 

1559. 

1560. 

1561. 

1562. 

1563. 

1564. 

1565. 

1566. 

1567. 

1568. 

1569. 

1570. 

1571. 

1572. 

1573. 

1574. 

1575. 

1576. 

1577. 

1578. 

1579. 

1580. 

1581. 

1582. 
158  3. 

1584. 

1585. 

1586. 

1587. 

1588. 

1589. 

1590. 

1591. 

1592. 

1593. 

1594. 

1595. 

1596. 

1597. 

1598. 

1599. 

1600. 
1601. 
1602. 
1603. 
160*. 

1605. 

1606. 
1697, 
1608. 

1609. 

1610. 
1611. 
1612. 

1613. 

1614. 

1615. 

1616. 
1617. 


XB  ID *XB-XO 
YB  (D-TB-YO 
GO  TO  130 
12C  XH(I)=YB-YO 
YR(I)=XO-XB 

130  IF  {  I  .GT.  249)  GO  TO  150 
140  COSTIHOB 
GO  TO  160 

15C  WRITE  (6,1001)  IRW,  XTRIAL 
160  COBTIHOE 
KB  =  NHI 

C  IF  8  PLOT  .  EQ,  2  RUKWAT  IMPACTS  ARE  PLOTTED  FOR  ALL  COHDITIORS 

C  IF  BPLOT  .EQ.  1  IMPACTS  OKLY  PLOTTED  WHER  ROHWAY  IS  CLOSED. 

IF  ( (MRU  .EQ.  1)  .AMD.  (BPLOT  .  SQ.  2))  WRITE  (6,1012)  ITRIAL 
IF  (BPLOT  .SQ.  2)  CALL  PLOTHT  (HH.IRW,  LTH,  BID) 

IF  (KTEST  .GT.6)  WRITE  (6,  1006)  HHIT  (IRB)  ,  RH 

DO  170  1=1, RH 
M  (I.U  =  YR (I) 

170  YB  (I,  2)  =1 

IF  (RH  .EQ.  1)  GO  TO  190 
DO  180  J=2,RH 
DO  180  K=2,NH 

C  ORDER  ALL  HITS  FROM  LOWEST  Y  TO  HIGHEST.  YH(I,1)  IS  THE 

C  Y  COORDIRATE,  YH  (1,2)  THE  HIT  ROBBER,  OF  THE  I  TH  ORDFRED  HIT 

I=RH-K*2 

IF  (YH  (1,1)  .GE.  YH(I-I.I))  GO  TO  180 
T=YH(I-1,1) 

TH=YH  (1-1,2) 

YH  (I-  1,1)  =YH  (I,  1) 

YH  (I  - 1 , 2)  =YH  (1 ,2) 

YH (I, 1)  =T 
YH  (1,2)  =TR 
180  CORTIROE 
190  CORTIROE 
XL  =  0 
XO  =  HCL 
200  YL  *  0 

YO  *  HCW 
BYL  *  1 

IF  (BOB  .EQ.  0)  GO  TO  210 
YL  =  YL  -  EMDW 
YO  =  YO  ♦  EMDW 
210  CORTIROE 
220  IHOLE  =  C 

DO  250  I  =  BYL  ,  RH 

IF  (BZ  (I)  .EQ.  1)  GO  TO  250 

YT  =  YH  (1, 1) 

IF  (ROB  .EQ.  1)  GO  TO  230 
R  =  EMD(HITR(MRW,3,YH(I,2))  ,1,1) 

YL  *  YL  -  R 
YO  =  YO  ♦  R 

230  IF  (YT  .LT.  YL)  GO  TO  240 
XT  =  XB  (TH  (1,2)) 

I?  ((XT  .LT.  XL)  ..OR.  (XT  .GT.  XO) )  GO  TO  240 
IF  (IT  .GT.  YO)  GO  TO  260 
IHOLE  *  IHOLE  ♦  1 

IF  (KTEST  .GT.  6)  WRITS  (6, 1008)  I,  IHOLE,  YL.YO 
RTEST  (IHOLE)  =  I 

IP  ((BEEP  .EQ.  0)  .OR.  (IHOLE  .  GT.  RHOLES))  GO  TO  260 
240  IF  (BOR  .EQ.  1)  GO  TO  250 
IF  (I  .EQ.  RH)  50  TO  260 
YL  ■  YL  ♦  R 

TO  =  TO  -  R 

250  CORTIROE 
260  CORTIROE 

IP  (IHOLE  .EQ.  0)  GO  TO  390 
IF  (BOR  .EQ.  1)  BYL  >  RTEST  (1) 

BBOLES  •  BIRO  (RHOLES,  IHOLE) 

IP  (HOB  .EQ.  0)  GO  TO  270 
YL  «  II  ♦  IBB 

YO  »  ID  ♦  IBB 

IP  (TO  .GT.  ( BID+EHDW) )  GO  TO  280 
GO  TO  220 

270  YL  ■  YL  ♦  *  ♦  IBB 

YO  ■  YO  -  B  ♦  IBB 

IP  (YO  .GT.  BID)  GO  TO  280 
IP  (KTEST  .GT.  4)  WBITE(6,  1908)  RHOLES 
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1618. 

GO  TO  220 

1619. 

280 

CONTINUE 

1620. 

XL  *  XL  ♦  IN L 

1621. 

XU  =  X0  ♦  INL 

1622. 

IP  (XU  .GT.  LTH)  GO  TO  290 

1623. 

GO  TO  200 

1624. 

290 

CONTINUE 

1625. 

IP  (SPRINT  ,GS.  3)  GO  TO  295 

1626. 

IF  ((MRS  .EQ.  1)  .AND.  (NPLOT  .NE.  2))  WRITE  (6 , 1 012)  ITRI AL 

1627. 

WRITE  (6,1002)  IRW 

1628. 

IF  (NPEP  .GT.  0)  WRITE  (6,1011)  NHOLES 

1629. 

IF  (NPLOT  .EQ.  1)  CALL  PLOTHT  (NH, IRW, LTH, HID) 

1630. 

295 

ICOND  =  1 

1631. 

IF  ((NPLOT  .GT.  0)  .AND.  (NFRIN1  .LI.  3))  WRITE  (6, 1000) 

1632. 

RETURN 

1633. 

300 

IF  (NPRINT  .GT.  2)  GO  TO  310 

1634. 

IF  (MRW  •  TQ.  1)  WRITE  (6,1012)  IT3IA1 

1635. 

WRITS  (6,1003)  IRW 

1636. 

31C 

ICOND  =  0 

1637. 

IF  ((NPLOT  .EQ.  2)  .AND.  (NPRINT  .LT.  3))  WRIIE(6,  ICO") 

1638. 

NHOLES  =  0 

1639. 

RETURN 

1640. 

320 

WRITE  (6,1005)  IRW 

1641. 

STOP 

164  2. 

10  00 

FORMAT  (•  1  •) 

16  4  3. 

1001 

FORMAT  ('0  *,'  ONLY  FIRST  250  HITS  TESTED  FOP  TARGET  «,,TU, 

1  b  4  4. 

X 

•  IN  TRIAL  #*  .14,/,/) 

■  US. 

1002 

FORMAT  ('C',20X,'  RUNWAY  #  •  ,13,  '  IS  CLOSED’,/,/) 

1648. 

1003 

1647. 

1004 

1648. 

1005 

1649. 

1650. 

1006 

1651. 

1008 

1652. 

1009 

1653. 

1010 

1654. 

1011 

1655. 

1656. 

1012 

1657. 

FORMAT  ('  O'  ,2CX,  'RUNWAY  #',I3,*  IS  OPEN’,/) 

. FORMAT ( '  RUNWAY  SPECS  •  ,14 , »T, 6IP) 

FORMAT  (*0*,  •*•***  TARGET  »',I3,*  IS  TOO  HARROW  FOR  •, 
■FLIGHT  OPERATIONS') 

FORMAT!'  *  HITS  TO  CHECK*,  216) 

FORMA  T  ( *  •,•  TEST  POINT  «B  *,3110) 

FORMAT ( *  *,•  TEST  POINT  #E*  ,  14,2110) 

FORMAT  ( *  R  *  ',F8.0,13X,2F10.0) 

FORMAT (*  •,  17X.I4, 1  HOLTS  MOST  BE  REPAIRED  TO  MEET  RUNWAY 

*  HXNINUNS • ,/) 

FORMAT  ('I*,  •  *•*»«  TRIAL  »',I3,'  *****’,/) 

END 
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1659. 

SUBROUTINE  PRINT 

1660. 

INPLICXT  INTEGER  *2  (A- 2) 

1661. 

INTEGER  *4  BSTAT 

1662. 

SEAL  *4  STAT,  TOTAL 

1663. 

C 

THS  FOLLOWING  JCL  INSERTS  TSARINA'S  COBBON  "BASIC" 

1666. 

// 

DD  DSN=«.STEP1. COBBON, DISP=SHR 

1665. 

// 

DO  *,DCB  =  BLKSIZE=800 

1666. 

COBBON  /STATS  /  STA T  (500 , 1 7) , BSIA T  (8) , NTRIAL, ITRIAL.SSTAT 

1667. 

IF  (NTRIAL  .EQ.  1)  GO  TO  1 

1668. 

IF  ((NPRINT.LT.  0)  .08.  (  (NPRINT.  LI.  3).  AND.  (BCR.  IQ.  0)  )  )  WRIT 

1669. 

WRITE  (6,108)  ITRIAL 

1670. 

GO  TO  2 

1671. 

1 

CONTINOS 

1672. 

WHITE  (6,106) 

1673. 

2 

CONTINUE 

1674. 

WRITE  (6,101) 

167  5. 

DO  10  (1=1,  BTT 

1676. 

NN=  0 

1677. 

FLAG  =  0 

1678. 

DO  10  1=1, NT 

1679. 

IF  (TGT  (1, 10)  .NE.  B)  GO  TO  10 

1680. 

NN=  NN+1 

1681. 

NAID  =  NHIT(I)  -  NCBU(I) 

1682. 

TOTAL  =  NAID  ♦  OHIT(I)  ♦  COV(I) 

168  3. 

DO  5  J  =  1,8 

1684. 

5 

TOTAL  =  TOTAL  +  P(I.J) 

168  5. 

IF  (TOTAL  .EQ.  0.0)  GO  TO  10 

1686. 

IF  (FLAG  .  EQ.  1)  GO  TO  8 

1687. 

FLAG  =  1 

1688. 

WRITE (6, 109)  B 

1689. 

8 

WRITE  (6, 102)  I  ,  NAID.OHIT  (I)  ,COV  (I)  ,  (P  (I,  J)  ,J=1,8)  ,  TGT  (1,1 

1690. 

X 

(NABE  (1,0)  ,  J=  1 ,  NABES) 

1691. 

10 

CONTINUE 

169  2. 

IF  (NPRINT  .GT.  -1)  GO  TO  60 

1693. 

WRITE  (6,103) 

1694. 

DO  20  B  =  1,  NST 

1695. 

IF  (BHIT(B)  .EQ.  0)  GO  TO  30 

1696. 

NN=0 

1697. 

NL  =  NHIT  (BHIT  (B)  ) 

1698. 

IF  (NL  .EQ.  0)  GO  TO  20 

1699. 

DO  15  N= 1 ,  NL 

1700. 

NN=NN*1 

1701. 

IF  (NN  .EQ.  26)  GO  TO  20 

1702. 

IF  (NN  .EQ.  1)  WRITE  (6,104)  NHIT  (N) 

1703. 

X=HIT  (H,  1 ,  NN) 

1704. 

Y=HIT  (H ,  2 , NN) 

1705. 

NWPN=HIT(H,3,NN) 

1706. 

WRITE  (6,105)  X,Y,  NWFN 

1707. 

15 

CONTINUE 

1738. 

20 

CONTINUE 

1709. 

30 

CONTINUE 

1710. 

DO  50  B  =  1  ,  5 

1711. 

IF  (NRW(fl)  .EQ.  0)  GO  TO  60 

1712. 

NN  «  0 

1713. 

NL  =  NHIT  (NRW  (B) ) 

1714. 

IF  (NL  .EQ.  0)  30  TO  50 

1715. 

DO  40  N  =  1,  NL 

1716. 

NN  «  NN  ♦  1 

1717. 

IF  (NN  .EQ.  251)  GO  TO  50 

1718. 

IF  (NN  .EQ.  1)  WRITE  (6,104)  NRW  (N) 

1719. 

X  =  HITS  (H,  1 ,  NN) 

1720. 

Y  •  HITR  (H,  2,  NN) 

1721. 

NWPN  «  HITR  (H,  3,NN) 

1722. 

WRITE  (6,105)  X,  Y,  NWPN 

1723. 

40 

CONTINUE 

1724. 

50 

CONTINUE 

1725. 

60 

CONTINUE 

1726. 

RETURN 

1727, 

101 

FORBAT{'0','  TGT  NUBBER  ',4X,  'CPU' ,16X, 'COVERAGE' ,54X. • 

172  8. 

X 

•  NO  HITS  COVERAGE', 12X, 'PI', 6X,'R2  PEOPLE 

1729. 

X 

'  PARTS  ABBO  TRAP  NAIFRL  • , 7X , • NO' ,/, •  ',7X, 

1730. 

X 

•TOT  OUT'  ) 

1731. 

102 

FORHAT {'  ',I3,3X,I3,2X,I3,3X,F6.2,10X,8  (3X.F5.3)  ,6X,I4,3X 

1732. 

1C  3 

FOR  BA  r('0',15X,'HIT  LOCATION  AND  WPN  TYPE  FOR  SEL'CTFD  "A 

1733. 

X 

././) 

97 


1734.  104  F3RHAT(*  TARGET  RUBBER*  ,  14 ,  •  X-DIH  Y-DIM  • 

1735.  X  ' 4 PS  TYPE*  ,/) 

1736.  105  FORMAT ( '  *,  21X.2I9.I7) 

1737.  106  FOSMAT(*1*,25X,  'TARGET  HIT  SUMMARY*,/,/) 

1738.  107  FORMAT  ('  1 ' ) 

1739.  108  FORMAT{*0*.25X. 'TARGET  HIT  SUMMARY  TFIAL*,I5) 

1740.  109  FORMAT (*0* .  25X,*«*  TARGET  TYPE  #  *,I3,'  »*',/) 

1741.  END 
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1  743. 
1  744. 
I  745. 

1746. 

1747. 
I  74S. 
1  749  . 
I  750. 

1751. 

1752. 

1753. 

1754. 

1755. 
I  756. 

1757. 

1758. 
1  758. 

1760. 

1761. 
1  762. 
1763. 
1  764. 
1  765. 
1  766. 
1767. 
1  768. 
1769. 
1771. 

1771. 

1772. 

1773. 

1774. 

1775. 
1  776. 
1  777. 
1  778. 
1778. 

1780. 

1781. 

1782. 
1733. 

1784. 

1785. 
I  786. 
1787. 
1  788. 

1789. 

1790. 

1791. 

1792. 

1793. 

1794. 

1795. 

1796. 

1797. 
1  798  . 

1799. 

1800. 
1801. 
18)2. 
18)3. 
18)4. 
18)5. 
1806. 
18)7. 
18)8. 

1809. 

1810. 
1811. 
1812. 

1813. 

1814. 

1815. 

1816. 

1817. 

1818. 
1619. 
1820. 
|8»1. 


C 

// 

// 


2 


5 

6 


C 

C 

c 


c 


a 


10 


a 
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SUBROUTINE  STATIS 

IMPLICIT  INTEGER  "2  1A-Z1 
INTEGER  *4  NSTAT 

INTEGER  *4  MX  1 TE 8. NOPE 0 . NCAGE .NOP AR  T»  NOMUN. NGTRAP , NOMAT L. KOPOL 

INTEGER  *4  PEOPLE. AGE . PARTS . AMMO. TRAP. MATERL .POL.NOEQUl .NOPEOP 

REAL  *4  PK.PHIT.AHITS.ACOV.AVGREP.CLSO.FCPEN.SCC.SOH. 

X  STAT.  TOTAL.  T0TAL1 •  STA.  SDREP.  TRIAL.  SUM1 ,  SUN2 

THE  FOLLOWING  JCL  INSERTS  TSAR INA* S  COMMON  "BASIC* 

OD  USNs4.STEPl.CQMMCN.Dl SP*SHR 

00  *.CC8*BLKSIZEs800 

COMMON  /STATS  /  STATI500. 171. MSTAT 18 1 .NTR I AL. tTR I AL, NSTAT 
COMMON  /CONTRL/  NREP . NPLOT . 1NW . I NL . CHANGE . NSAVE. L 1ST . NJMEM 
COMMON  /STORES/  MX1TEM.N0PE0.NQAGE. NOPART, NOMUN, NCTRAP.NOMATL, 

X  NOPOL  •  NOEOtll  .NOPEOP.  PEOPLE  1 202.41  .AGE!  131.4 1  .PARTS  1 401 . 4  I. 

X  AMMO! 126,41 .TRAP (26. 41. "ATE RL( 26. 41 .POL  1 10.41 .STOCKS! 1000.31 . 

X  EOUIV1430I 
DIMENSION  PKI8I 
WRITE  (6.1311  NTRIAL 
AVGREP  »  0.3 
DO  12  M  -  1.  MTT 
NN  *  0 

IF  (M  .NE.  SHEL T 1  GO  TO  2 
SUM l  *  0.3 
SUM2  >  0.0 
CONTINUE 

TOTAL  1  -  0.0  *•# 

00  10  I  *  l.  NT 

IF  (TUTU. 131  .NE.  Ml  GC  TO  1) 

NN  *  NN  ♦  1 

IF  (NN  .Ed.  II  WRITE  (6.1021  M 
FHIT  =  (STATU. 31/NTRIALIM00. 

AHITS*  STATU.il/NTRIAL 
TRIAL  *  NTRIAL 

SUM  =  (STATU. 21  -  TRIAL»AHITS»AHITS1/(TRIAL  -  1.1 

SDH  *  S0H**(0.5I 

ACOV  *  ST AT( 1 . 41/TRIAL 

SOC  *  (STATU. 51  -  TRIAl*ACCV*ACOVI/ (TRIAL  -  1.1 

SOC  -  SCC **10.51 

00  5  L  *  1.8 

PK(  L  I  »  STATU, L451/TRIAL 

TOTAL  *  EMIT  *  AHITS  »  SDH  ♦  ACOV  ♦  SOC 

00  6  L  s  1 .8 

TOTAL  *  TOTAL  ♦  PML! 

IF  (TOTAL  .EC.  0.01  GO  TO  8 

FLAG  *  0 

IF  ( (TGTI I.14I.GT.01.AN0.ITGTI I. 14 1 .LT.IOOOI I  FLAG  *  1 

IF  (FLAG  .EO.  01  WRITE  ( 6. 103  1 1 ,FH I T , AH  I TS . SDF , ACOV , SOC . 

X  (PML1.LM.8I,  (NAME!  I , L) ,L=  l.NAMES  1 

IF  (FLAG  .EC.  II  WRITE  ( 6. 106 1 1 , FHI T. AH  I TS . SDH, ACOV .SOC . 

X  IPKILI.Lsl.81.  TGTII.14I.  I  NAME (I , L I ,L * l .NAME S I 

TOTAL l  «  TOTAL  1  ♦  PKI1I  »*• 

IF  !M  , NE.  SHFLT)  GO  TO  10 
SUM  1  »  SUM l  ♦  FHIT 
SUM2  «  SUM2  ♦  AHITS 
CONTINUE 

IF  KM  .NE.  SHEL  T I  •  OR  .  ( NN  .EO.  Oil  GC  TC  11 
SUM1  «  SUM  1 /NN 
SUM2  •  SUM2/NN 
WRITEI6.138I  SUM  1 •  SUM 2 


GC  TO  12 

000 

IF  INN  .EO.  3) 

GU  TC  12 

IF  (M  .LT.  51  GO  TO  12 

000 

TOTAL  I  *  TOTAL l/NN 

000 

CONTINUE 

WRI TE 1 6  » 1391  TCTAL1 

000 

IF  (NCR  .EO.  01 
STA  *  NSTAT 

GO  TO  50 

FOPEN  »  I STA/TR I AL 1 *1 00  • 

NCLSO  •  NTRIAL  - 

STA 

IF  (NCLSO  .EO.  01 

GC  TO  4) 

CL SO  •  NCLSO 

AVGREP  s  "STATI  1 1  /CL  SO 

SCREP  "3.3 

IF  (NCLSO  .GT.  II 

X  SDREP  •  ( (MSTAT(21-CLSD"AVGREP"AVGREPI/(CLS0-l. »»••«. 51 
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1822.  40  CONTINUE 

1823.  MPITE  (6.104)  FCPEN 

1824.  IE  1 NRF  P  .CO.  1)  NRITEI6.105I  AVGREP.  SOREP 

1825.  50  CCNTINUE 

1626.  C 

1827.  C  USE  SUBROUTINE  RESTAT  TC  SUMMARIZE  THE  RESOURCE  LOSS  STATISTICS 

1828.  C 

1825.  CALL  RESTATI PECPLEIl .11 .NO PEC  .l.NTRIAU 

1830.  CALL  RESTATI  AGE! I . 1 1 .NOAGE .  2.NTRIAL) 

1831.  CALL  RESTATI  PARTS  1 1 . 1 ) .NOP ART . i.NTR 1 AL ) 

1832.  CALL  RESTATI  AMMOIl , 1 1 , NOMUN.  4.NTRIALI 

1833.  CALL  RESTATI  TR API  1 . II .NCTRAP, 5.NTRI AL 1 

1834.  CALL  RESTATI MAT ERL II .ll.NnMATL«6.NTRIAL) 

1835.  CALL  RESTATI  POLI 1 . II .NOPCL.  7.NTRI ALI 

1836.  C 

1837.  RETURN 

1838.  101  FORMAT  (‘l*.  30X, 'TARGET  DAMAGE  STATISTICS  FOR*. 14.'  TRIALS'././. 

1834.  X  •  TARGET  PERCENT  AVERAGE  HITS  STD  DEV  AVG  CBU  STD  • 

1840.  X.'OEV  BCH8  COVERAGE* ,1JX. •  KILL  PROBABILITIES'. 22X, 'BLDG  './. 

1841.  X  •  NO  ATTACKS  HJ T  PER  ATTACK  OF  HITS  CCVERAGE  COVE*. 

1842.  X  'RAGE  PI  R2  PEOPLE  AGE  PARTS  AMMO  TRAP*. 

1843.  X  •  MATERL  BLDG  KO/NANE  ',//) 

1844.  102  FORMAT  ('  './.  40X.  'TARGET  TYPE  #  '.I3./I 

1845.  103  FORMAT!'  • . 14 .3X.F6. 1 .3X.F7.2 . 7X, F6 .2 , 3X.F6.2. 3X.F6. 2. 

1846.  X  8F7.3.  6X.  4A4I 

1847.  104  FORMAT!'  './.  •  AT  LEAST  ONE  MINIMUM  RUNMAY  SECTION  MAS  OPEN  AFTE 

1848.  XR'.  F6. I « '  PERCENT  OF  THE  ATTACKS »././ I 

1845.  105  FORMAT! •  • . • MHE N  ALL  RUNMAYS  MERE  CLOSED.  • .F6.2 ,' ( • .F6.2 • 

1850.  X'l  HOLES  REQUIRED  REPAIR.  ON  THE  AVERAGE.  TO  PROVIDE*. 

1851.  X  •  A  MIMMLM  RUNMAY'.//| 

1852.  106  FORMAT!'  '.I4.3X.F6.1.3X.F7.2.7X.F6.2.3X.F6.2.3X.F6.2. 

1853.  X  8F7.3.  2X.I3.1X.  4A4 I 

1854.  108  FORMAT!'  '.  8X.' — -».4X.' - './,'  '.  BX ,F6 .2. 3X. F6 . 2  I 

1855.  109  FORMAT!'  *.55X.' ',/.'  '.54X.F6.2  I 

1856.  ENO 
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1858. 

1839. 

1850. 

1861. 

1862. 

1863. 

1864. 

186  5. 
1866. 
1867. 
186  8. 

1869. 

1870. 

1871. 

1872. 

1873. 

1874. 

187  5. 

1876. 

1877. 
187  8. 
187  9. 
1880. 
1881. 
1882. 

1883. 

1884. 

1885. 

1886. 

1887. 

1888. 

1889. 

1890. 

1891. 

1892. 

1893. 

1894. 

1895. 

1896. 

1897. 

1898. 

1899. 
1930. 

1901. 

1902. 

1903. 

1904. 

1905. 

1906. 

1907. 
1938. 

1909. 

1910. 

1911. 

1912. 

1913. 

1914. 

1915. 

1916. 

1917. 

1918. 

1919. 

1920. 

1921. 

1922. 

1923. 

1924. 

1925. 

1926. 

1927. 
1926. 

1929. 

1930. 

1931. 

1932. 


SUBROUTINE  CBU 

IMPLICIT  INTEGER  *2  (A-Z) 

INTEGER  *4  MSTAT 

SEAL  *4  PHI.  S,  C,  T,  CT,  AO,  A1  ,  *2,  A3,  A4,  A5,  XT, 
X  3TAT ,  PK,  PSP,  PST,  PSCOV,  TOTC,  SIN,  COS 

C  THE  FOLLOWING  JCL  INSERTS  TSARINA'S  COMMON  "BASIC" 

//  DO  DSN=».STEP1. COHHON, DISP=SHR 

//  DD  *,  DCB=BLKSIZS=800 

COHHON  /STATS  /  STAT  (500 , 17)  ,  MSTAT  (8)  ,  NTRIAL,  ITRTAL.NSTAT 

COHHON  /CBUHIT/  CBUHT  (200 , 2)  ,  IR(50),  RCBU,  KPTI 

DI  HENS  ION  NCOV  (16,  1  6)  ,  ICOV  (16 , 16)  ,  PSCOT  (16,16,6)  ,PST(6)  , 

X  X  (4 )  ,  1(4),  XX  (4 )  ,  IT  (4)  ,  HD  (10) 

C  COMPOTE  PATTERN  DIAGONAL  DIMENSION 

DO  2  NHPN  «  1,  10 
HD (NHPN)  =  0 
LTH  =  -ZHD  (NNPN.1, 1) 

IF  (LTH  .LE.  0)  30  TO  2 

HID  -  EHD (NHPN ,2,1) 

HD(NNPN)  =  (  (LTH*LTH  ♦  WID*«ID)  **  (.  5) ) /2. 


2  CONTINUE 

C  AT  THIS  POINT  THE  PROGRAM  NOH  CHECKS,  TARGET  BY  TARGET,  FOR 
C  WHATEVER  CBU'S  MAY  HAVE  COVERED  ANY  PART  OF  THE  IARGFT. 

DO  200  L  *  1,  NT 

C  *******************  poR  SUCH  TARGET 

INIT1  =  0 

C  COMPUTE  TARGET  CENTER 

TCX=  (TGT  (L.1)  ♦  TGT(L,5))*0.5 
TCY=(TGT  (L,2)  *TGT(L,6)  )*0.5 
C  TARGET  DIAGONAL 


XA  =  TGT  (L,1)-IGT(L,5) 

YA*TGT  (L.2)  -TGT  (L,  6) 

TD  =  0. 5*  (  (XA*XA  ♦  YA*YA)  **  (0.  5) ) 

NCBUHT  *  0 
FLAG  *  0 

DO  4C  1*1,  NA 

C  *«•••***•*•**•••*.  POR  EACH  ATTACK 

IF  (IB  (I)  .SQ.  1)  GO  TO  40 
INIT2  *  0 
NHPN  =  ATT  (I,  9) 

LTH  =  -EMD(NWPN,1,1) 

IP  (LTH  .LE.  0)  GO  TO  40 
HID  =  EMD (NHPN ,2,1) 

TOT  =  HD  (NHPN)  ♦  TD 
NS  =  ATT  (1, 7) 

INIT3  =  0 

DO  20  N  =  1,  NS 

c  **•••••**•••••••**  for  EACH  HTAPON 

NCBUHT  =  NCBUHT  ♦  1 
XB  *  CBUHT  (NCBUHT,  1) 

IF  (XB  .EO.  -10000)  GO  TO  20 
YB  *  CBUHT  (NCBUHT,  2) 

C  DISTANCE  BETWEEN  TARGET  AND  PATTERN  CENTERS 

D  *  (  (XB-TCX)  •  (XB-TCX)  ♦  (YB-TCY)  *  (YB-TC»)  )  **  (.  5) 

C  TARGET  CANNOT  BE  HIT  IF  D  GREATER  THAN  TOT 
IF  (D  .GT.  TOT)  GO  TO  20 
FLAG  *  1 

IF  (INIT3  .GT.  0)  GO  TO  16 
INIT3  *  1 

PHI  *  ATT  (1,1) /57.  3 
S  =  SIN  (PHI) 

C  *  COS  (PHI) 

SL  =  S*LTH 

SH  *  S«WID 

CL  =  C*LTH 

CW  *  C*WID 

DO  5  J  *  1,  16 

DO  5  K  «  1,  16 

5  NCOV  (J  ,  K)  *  0 

16  CONTINUE 

XX  (1)  »  XB  -  (SL*CH)/2. 

XX  (2)  •  XX  (1)  ♦  SL 
XX  (3)  •  XX  (2)  ♦  CM 
XX  (4)  •  XX  (1)  »  CN 
YY  (1)  *  YB  ♦  (Si-CLJ/2. 

YY  (2)  *  YY  (1)  ♦  Cl 
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1933. 

YY  (3)  =  YY  (21  -  Sit 

1934. 

yy  14)  =  rr  (i)  -  sit 

1935. 

IF  (INIT2  . ST .  0)  SO  TO  18 

1936. 

INIT2  =  1 

1937. 

c 

FIND  WESTERLY  CORNER 

1938. 

I  LX  =  1 

1939. 

DO  15  NN  =  1,4 

1940. 

15 

IF  (XX  (NN)  ,LT.  XX  (ILX) )  ILX  =  NN 

1941. 

IF  (S  ,EQ.  1.0)  ILX  =  4 

1942. 

C 

RENUHBEP.  CORNERS  SO  THAT  CORNER  #1  IS  THE  HOST  NESTERN 

1943. 

IDIF  =  ILX  -  1 

1944. 

c 

COHPUTE  AND  ADJUST  TAN  AND  COTAN  AS  REQUIRED 

1945. 

IF  <(S  .SO.  0.9)  .OS.  (C  .EQ.  9.9))  GO  TO  28 

1946. 

IF  ((ILX  .EQ.  2)  .OR.  (ILX  .EQ.  4))  GO  TO  26 

.1947. 

T  =  S/C 

1948. 

GO  TO  27 

1949. 

26 

T  *  -C/S 

1950. 

27 

CT=  1./T 

1951. 

28 

CONTINUE 

1952. 

18 

DO  22  NN  ~  1.4 

1953. 

HSU  *  NN  -  IDIF 

1954. 

IF  (SEN  .LT.  1)  NEH  =  NEH  ♦  4 

1955. 

X  (NEH)  =  XX  (NN) 

1956. 

Y (NEH)  =  YY (NN) 

1957. 

22 

IP  ( KTEST  .GT.  4)  HRITE  (6 , 1 993)  NEH,  X  (NEH)  ,  Y  (NEH) 

1958. 

IF  (INIT1  .GT.  0)  GO  TO  31 

1959. 

C 

CREATE  A  16-POINT  GRID  ON  TARGET  -  USE  BORE  POINTS  »OR  LARGE  TGTS 

I960. 

INIT1  =  1 

1961. 

NXO  «  8 

1962. 

NYO  *  8 

196  3. 

IF  (TGT  (L,  12)  .GT.  250.)  NY9  =  16 

1964. 

IF  (TGT  (L,  12)  .GT.  1090.)  NI9  =  32 

196  5. 

IF  (TGT  (L.  13)  .GT.  250.)  HX9  *  16 

1966. 

IF  (TGT  (L,  13)  .GT.  1000.)  NX9  =  32 

1967. 

NXT  «  NXO/2 

1968. 

NYT  *  NYO/2 

196  9. 

DO  29  J  »  1,  NXT 

1970. 

DO  29  K  »  1,  NYT 

1971. 

ICON  (J,  K)  =  0 

197  2. 

DO  29  NP  =  3,8 

1973. 

29 

PSCOV  ( J ,  K ,  (NP-2)  )  »  1.0 

1974. 

NX  1  -  NXO  -  1 

1975. 

NY1  =  NY3  -  1 

1976. 

XO  «  NXO 

1977. 

YO  «  NYO 

1978. 

A 9  «  TGT(L.I) 

1979. 

A 1  *  (TGT(L,7|  -TGT(L,1)  )/X0 

1980. 

A2  *  (IGT(L,3)-TGT(L,1)  )/YC 

1981. 

A3  «  TGT  (L,  2) 

1982. 

A»  *  (TGT  (L,4)  -TGT  (L,2)  )/Y0 

198  3. 

AS  «  (TGT  (L,8)  -TGT  (L,2)  )  /XC 

1984. 

31 

CONTINUE 

198  5. 

C 

TEST  TO  SEE  IF  TARGET  CORNERS  COVERED  BY  PATTERN 

1986. 

NIH  *  0 

1987. 

NGIN  =  0 

1988. 

DO  19  NC  «  1,  7,  2 

1989. 

XT*TGT  (L,  NC) 

1990. 

YI*TGT (L,NC*1) 

1991. 

IF  (KTEST  .GT.  4)  HRITE  (6 , 199 1 )  XT,Y? 

1992. 

IF  ((XT  .LE.  X(1)).OR.  (XT  •  GE.  X  ( 3)  >  >  GO  TO  10 

1993. 

IF  <  (TT  .LE.  Y(4)).OR.  (YT  .GE.  Y(2)))  GO  TO  10 

199  4. 

IF  ({S  .  EQ.  0.)  .OB.  (C  .EQ.  0.))  GO  TO  9 

1995. 

IF  (YT  .GE.  (Y  (1)  ♦CT*(XT-  X  ( 1)  )  ) )  GOTO  10 

199  6. 

IF  (TT.GE.  (T(2)  -T*  (XT-X (2) ) ) )  GO  TO  19 

1997. 

IF  (TT.LE.  (Y  (4)  4CT*  (XT-X  (4)  ) ) )  GO  TO  10 

1998. 

IF  (YT.LE.  (I  (1)-T»  (XT-X(I))))  GO  TO  19 

1999. 

9 

NIN  «  HIN  ♦  1 

2000. 

10 

CONTINUE 

2001. 

IF  (KTEST  .GT.  3)  HRITE  (6, 1 902)  NIN 

2092. 

IF  (NIH  .LT.  4)  GO  TO  34 

2093. 

C 

IF  AIL  CORNERS  COVERED  BT  PATTERN,  TARGET  EULLY  COVERED 

2004. 

DO  32  J  »  1,  NXT 

203  5. 

DO  32  K  •  i,  m 

2036. 

32 

NCOV  (J,K)  «  NCOV  (J  , K)  ♦  1 

2007. 

GO  TO  33 
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2008. 

2009. 

2010. 
2011. 
2012. 

2013. 

2014. 

2015. 

2016. 

2017. 

2018. 

2019. 

2020. 
2021. 
2022. 

2023. 

2024. 

2025. 

2026. 

2027. 

2028. 
2C29. 

2030. 

2031. 

2032. 
203  3. 

2034. 

2035. 

2036. 

2037. 

2038. 
2339. 

2040. 

2041. 

2042. 

2043. 

2044. 

2045. 

2046. 

2047. 
2040. 

2049. 

2050. 

2051. 

2052. 

2053. 

2054. 

2055. 

2056. 

2057. 

2058. 

2059. 

2060. 
2061. 
206  2. 
206  3. 

2064. 

2065. 

2066. 
2067. 
2067.1 


34 


35 


30 

33 


IF  PASTIALLY  COVERED,  ESTIMATE  PPACTION  THAT  IS  CON*RED 
CONTINUE 

DO  30  NX  «  1.NX1.2 
DO  30  NY  =  1.NY1, 2 
J  «  (NX-*1)/2. 

K  =  (NY*1)/2. 

GRID-POINT  DIMENSIONS 
XT  *  AO  ♦  NX* A 1  ♦  NY*A2 
YT  *  A3  ♦  NY*A4  ♦  NX*AS 

CHECK  IF  MITHIN  RECTANGLE  ENCLOSING  PATTERN  THAI  IS  PARALLEL  TO 
AXES 


IF 

((XT 

.LT. 

X  (1))  .OB. 

,  (XT 

•  GT.  X  (3)  ) ) 

GO 

TO 

3*1 

IF 

((YT 

.LT. 

Y  (4))  .OR. 

(IT 

.GT.  Y  (2)  ) ) 

GO 

TO 

30 

IF 

( (S 

.EQ. 

0.)  .OB. 

(C  . 

EQ.  7.))  GO 

TO 

35 

CHECK  IF  POINT  IS  NITHIN  ACTOAL  CBU  PATTERN 
IF  (YT  ,GT.  (Y  ( 1)  *CT*  (XT-X  (1) ) )  )  GO  TO  30 

IF  (YT  .GT.  (Y  (2)  -  T*  (XI-X  (2)) )  )  GO  TO  30 

IF  (YT  .  LT.  (Y<4)  *CT*  <XT-X<4)  ))  )  GOTO  3C 

IF  (YT  .LT.  (Y  ( 1 ) -T*  (XT-X  (1 )  )  ) )  GO  TO  30 
NGIN  *  NGIN  ♦  1 
NCOV(J.K)  *  NCOV(J.K)  ♦  1 

IF  ( KTEST  .GT.  5)  HRITE(6, 1005)  NX,  NY  , XT, IT,  NGIN,  NCOV  ( J ,  K) 
CONTINUE 
CONTINUE 

IF  ((NIN  ♦  NGIN)  .EQ.  0)  GO  TO  20 
:  E3C0BD  ANY  COYERAGE  AS  A  'HIT* 

NHIT(L)  *  NHIT(L)  ♦  1 
NCBU(L)  =  NCBU(L)  ♦  1 

IF  (KTEST  .GT.  4)  B  BUS  (6,  10 06)  L,  NHIT  (L)  ,  NCBU  (1) 

IF  (  (TGT  (L ,  1 1 )  .LT.  1)  .OR.  (TGT(L,10)  .EQ.  1.))  GO  TO  13" 

IF  (N HIT  (L)  .GT.  25)  GO  TO  130 

DO  120  J  *  1,  NST 

IF  (MHIT(J)  .EQ.  0)  GO  TO  1*0 

IF  (MHIT(J)  •  N2,  L)  GO  TO  120 

HIT  (J.  1  .NHIT  (L) )  =>XB 

HIT  (J.2.NHIT(L))»YB 

HIT  (J,  3, NHIT  (L) )  *NNPN 

IF  (NHIT  (L)  .EQ.  25)  NBITE  (6,1007)  L,  ITRIAL 
GO  TO  13? 

120  CONTINUE 
13C  CONTINUE 

IF  (TGT  (L,  10)  .NE.  1)  GO  TO  15" 

IF  (NHIT  (L)  .GT.  250)  GO  TO  15C 

DO  140  J  «  1,  5 
IF  (NBN(G)  .EQ.  0)  GO  TO  150 

IF  (NRH(J)  .NE.  L)  GO  TO  14? 

HITR  (J,  1 , NHIT  (L) )  *  XB 
HITR  (J,  2, NHIT  (L) )  =  YB 


HITB(J,3,NHIT(L)) 


NHPN 


140 

150 


IP  (NHIT  (L) 
CONTINUE 
CONTINUE 


.EQ.  250)  NRITE  (6,1009)  L,  ITPTAL 


**••••*•••••*•••••••«••«•  RECYCLE  FOR  HOSE  NEAPONS 

20  CONTINUE 

IF  (INIT2  .EQ.  0)  GO  TO  40 

DO  160  NP  *  3,  8 

PK  »  END  (NHPN,  TGT  (L,10),NP)/100. 

PSP  *  1.  -  PK 
DO  160  J  »  1,  NX.T 

DO  160  K  ■  1,  NIT 

IF  (NP  .GT.  3)  GO  TO  16" 


2068. 

2069. 

2C70. 

2071. 

2072. 

2073. 

2074. 

2075. 

2076. 

2077. 

2078. 

2079. 

2080. 
2081. 
2082. 


ICON  (J  ,  K)  •  ICON  (J  ,  K)  ♦  NCON(J.K) 

163  PSCON  (J.K.NP-2)  «  P  SCON  (J,  K  ,NP  -  2)  *PSP**NCON  (J  ,K) 

C  *•»**••*•••••«••••••••«••  RECYCLE  FOB  MORE  ATTACKS 

40  CONTI  NOE 

IF  (FLAG  .EQ.  0)  GO  TO  200 
TCON  *  0 

DO  165  HP  ■  3,  8 
165  FSX(NP-2)  •  0.0 

DO  17  0  J  »  1,  NIT 
DO  170  K  *  1,  NIT 

IF  (ICON  (J.K)  .GT.  0)  TCON  »  TCON  ♦  1 
DO  170  NP  *  3.  8 

170  PST  (NP-2)  «  PST  (NP-  2)  ♦  (1.  -  PSCON  (J,  K  ,  NP-2) ) 

TOTC  *  NXT*NIT 
CON  |l)  ■  TCON/TOTC 
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2093. 
2C84. 
2085. 
2036. 
2087. 
2068. 
2069. 

2090. 

2091. 

2092. 
2C93, 

2094. 
2  09  5. 
2096. 
2C97. 

2098. 

2099. 
.'13  3. 
X131. 


DO  180  HP  *  3,  8 

160  P(UNP)  *  1  -  (1.-PlL,NP>)*(1.-PST(NP-2)/T0IC) 

IF  (KTEST  .GI.  3)  HSITE  (6,  1 00« )  L  ,?C0»  ,  TOTC,  (PST  (I)  ,  I»1 ,6)  , 

X  CO»  (t|  ,  (P(L.I)  .1  =  1,8) 

C  •»•*.*•***«*•**»»«*••*•»*  RECYCLE  P03  NOPE  TARGETS 
2C0  CONTINUE 
BZTUaX 

1001  rORSA?<*  *,*  XT  »,E8.  0,"  YT  *,P8.0> 

1002  FOE  FAT  (*  •.  '  HIM  ',14) 

1003  FORMAT  ('  *,  '  M  EH  *.13,21101 

1034  PORMATC  • , *  TGT* , 14 , *  COY', 14.*  TOT*,F6.0,*  PST* , 

X  6F6.3.*  COV  *  ,  F6 . 4  ,  *  PK*,6F6.3  1 

1035  FORMAT  (•  •.*  MX  *,I3,*  HI  •  ,1 3,  2F10.  0,  2T1 1) 

1006  POEM  A  T ( 1  *.*  TOT  *,I4,*  NHIT*,I5,'  HCEO',15) 

1007  FORSAT(‘0*  ,*  *«••*  ONLY  25  HITS  HERE  STORED  TOP  TARGE?  **, 
X  13, <  DOPING  TRIAL  »*,I4,'  **«*») 

1009  FORMATCO*  «**•»  ONLY  25C  HITS  HERE  STORED  FOR  -ARGET*, 

X  1  #*, 1 3, •  DOPING  TRIAL  t*,I4,*  •»•*••) 

*1l 
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2103. 

2114. 

2105. 

21)6. 

2107. 

2108. 
21)9. 
2110. 
2111. 
2112. 

2113. 

2114. 

2115. 

2116. 

2117. 

2118. 

2119. 

2120. 
2121. 
2122. 

2123. 

2124. 

2125. 

2126. 

2127. 

2128. 

2129. 

2130. 

2131. 

2132. 

2133. 

2134. 

2135. 

2136. 

2137. 

2138. 

2139. 

2140. 

2141. 

2142. 

2143. 

2144. 

2145. 

2146. 

2147. 

2148. 

2149. 

2150. 

2151. 

2152. 

2153. 

2154. 

2155. 

2156. 


SUBROUTINE  PLCTHT (NH, NR.LTH ,WTD) 

IMPLICIT  INTEGER  «2  IA-Z) 

REAL  *4  T 

COMO*  /HITS/  XN  (250) ,  IN  (250)  ,NZ  (250) 

01 HENSION  ICOL  (130) 

DATA  IBK  /  1H  /.IX/  1H*  /.IV  1H*  /.IS/  1H-  /.IE/  1H'  / 

C  THIS  ROUTINE  PLOTS  THE  IHPACT  POINTS  (BUT  NOT  CRATERS)  EOF 

C  ALL  HITS  THAT  HAV8  BEEN  STORED  EO?  A  RONBAT/TAXIWAT.  IT 

C  HILL  PLOT  ALL  HITS  THAT  AEFECT  RUNHAT  OPERATION  UP  TO  50  'BEET* 

C  OP  EITHER  SIDE  OF  (OP  TO|  A  300  'FOOT1  RONNAT.  PUNHAT  LENGTH 

C  IS  LIHITBD  TO  13300  'FEET'. 

INID  =  NID/10  ♦  5 
LEN  *  LTH/100  ♦  1 
IP  (LEN  .GT.  129)  LEN  =  129 
LO  *  LEN/10 
LI  «  1 3*LU  ♦  1 
LU  *  LU  ♦  1 

DO  40  J  =  1,40 

I  =  41-J 

DO  10  N  *  1,129 

10  ICOL  (N)  =  IBK 
ICOl(l)  »  IE 

ICOL  (LEN)  =  IE 

IF  ((I  .NE.  5)  .AND.  (I  . NE.  INID))  GO  TO  14 
DO  11  NS  *  1.LEN 

11  ICOL (NS)  »  IS 

DO  12  NS  *  1,LI, 10 

12  ICOL  (NS)  =  IE 

14  CONTINUE 

DO  2C  N  =  1  ,NH 
NT  -  TNiN)/10  ♦  5 
IP  (NT  .NE.  I)  GO  TO  20 
NX  =  XN(N)/100  ♦  1 

IP  ((NX  .IT.  1)  .OR.  (NX  .GT.  129))  GO  TO  20 
ICOL (NX)  «  IX 

IP  (XZ(N)  .EQ.  1)  ICOL  (NX)  *  IT 
2D  CONTINUE 

T  *  1/5. 

LT-T 

IP  <(T-LT)  .NE.  0.  ?)  GO  TO  33 
LTT  =  5*LT  -  5 

WRITE  (6,101)  LIT,  (ICOL(H)  ,H=1 , 129) 

GO  TO  40 

30  WRITE  (6,102)  ( ICOL  (H)  , H=1 , 1  29 ) 

40  CONTINUE 

WRITE  (6,103)  (  I,  1-1,12),  NR 

RETURN 

1C1  FORHAT  (•  *,12,129X1) 

102  FORHAT  ('  ' , 2X, 1 2  9A  1 ) 

103  FORHAT  (*  ',*  O',  12(8X,I2),/, 

X  4 OX, *  TENS  BT  THOUSANDS  OF  LENGTH  UNITS  ',/,/, 

X  4CX,  '  IHPACT  POINTS  ON  RONWAT  RUBBER  ',12,/, 

X  37X,  *  (•  =  POINT  IHPACT  WPN  ♦  -  CEO  CENTROID)’) 

END 
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21o8. 
21  59. 
21b0. 
2161. 
2162. 

2163. 

2164. 

2165. 

2166. 

2167. 

2168. 

2169. 

2170. 

2171. 

2172. 

2173. 

2174. 

2175. 

2176. 

2177. 

2178. 

2179. 

2180. 
2181. 
2182. 

2183. 

2184. 

2185. 

2186. 

2187. 

2188. 

2189. 

2190. 

2191. 

2192. 

2193. 

2194. 

2195. 

2196. 

2197. 

2198. 

2199. 
2230. 
2201. 
2202. 

2233. 

2234. 
229  5. 
2206. 
2207. 

2298. 

2299. 
2210. 
2211. 
2212. 

2213. 

2214. 

2215. 

2216. 

2217. 

2218. 

2219. 

2220. 
2221. 
2222. 

2223. 

2224. 

2225. 

2226. 

2227. 

2228. 

2229. 

2230. 

2231. 

2232. 

2233. 


SUBROUTINE  JN  EMO  (N  J  REM  ,  D ,  N  A  ,K  TEST) 

INTEGER  *2  NJ  HEN,  D.  NA,  KTEST 
INTEGER  *4  EE 

DIMENSION  S(9),  SE(9),  0(11) 

C  THIS  SUBROUTINE  PROVIDES  THE  USE?  'METHOD  9*  AS  OUTLINED  TN  THE 
C  8-74  HANG  70”1  USERS' S  MANUAL  FOR  JBEH  OPEN-END  HETHODS. 

C  THIS  TRAJECTORY  PKOGRAH  PENNIES  AIDA  USEFS  TO  PRESCRIBE  THE 
C  ATTACK  DATA  AS  IN  JNSS  .  THE  SUBROUTINE  L"GIC  IS  TAKEN  DIRECTLY  FSOH 
C  THE  REFERENCED  PUBLICATION  AND  USES  NOTATION  CLOSELY  PARALLELING 

C  THE  ORIGINAL.  ONLY  THE  *  PATTERN  RADIUS'  CONFUTATION  (USED  NT"H 

C  ROCKEYE)  IS  OMITTED. 

NJflEH  =  NJHEH  ♦  1 
NCNT  «  0 

IE  (NJHSM  .  EQ.  1)  HRITE  (6,191) 


P3AD 

(5,102)  (£E(I)  ,1*1,9) 

DO  16 

I  *  1,6 

16 

E  (I) 

*  EE (I) 

DO  18 

I  =  7.9 

18 

E  (I) 

=  EKU/1999. 

HRITE 

(6,103)  NA,  (D (I)  ,  1  =  1 , 6) 

HRITE 

(6,104)  (3(1), 1-1, 9) 

DO  20 

I  =  7,9 

20 

D  (I) 

-  D  (1*1) 

El  = 

1.688*E  (1) 

E  = 

El 

TH  = 

E(3)/57.3 

EX  * 

»*COS (TH) 

VY  = 

-E*SI  N  (TH) 

TR  = 

(D (7)  -  1  • )  *E  (8)  ♦  (5  (5)  -1  »)  *E (9) 

DX  = 

TR*EX/2. 

Y1  * 

E  (2)  -  E  Y*TR 

YI  « 

(YI  ♦  E(2))/2. 

Y  * 

YI 

TF  « 

0.0 

EF  « 

c.o 

THP-0 

.0 

IF  (E  (7)  .GT.  509.)  GO  TO  1 

TT  » 

0.0 

IF  (5(7)  .EQ.  0.0)  GO  TO  2 

TPD-E (7) 

GO  TO 

] 

1 

YT  * 

E  (7) 

2 

TPD* 

99. 

3 

COHTINUE 

DG  * 

32.17/(E(4)*E(4)) 

7  CONTINUE 

IE  (KTEST  .GT.  5)  HRITE  (6,196)  ?F,I,Y 
NCNT  *  NCNT  ♦  1 

IE  (NCNT  .GT.  2000)  GO  TO  39 
NCNT2  -  0 
C  =  E/220.  -  3. 

IE  (C  .  GZ.  3.)  C  «  3. 

IF  (C  .IT.  1.)  C  *  1. 

DD  «  C* DG*EXP (-T/31009.) 

DT«  10./(DG*E*E) 

IF  (DT  .GT.  0.5)  DT  *  0.5 
GO  TO  13 
5  CONTINUE 

TF  «  TFO 
EY  »  ETC 
Y  »  YO 

IF  (KTEST  .GT.  5)  HRITE  (6,197)  DT,  ET 
NCNT2  -  NCNT2  ♦  1 
IF  (NCNT2  .GT.  100)  GO  TO  39 
13  CONTINUE 

TFO  «  TF 
TF  »  TF  ♦  DT 

IF  (TF  .IT.  TPD)  GO  TO  4 
TF  »  TPD 
DT  «  TP  -  TPC 
4  CONTINUE 

ETO  ■  EY 

ET  .  ET*  (1.-E*DT«D0)  -  32.17*DT 
TO  «  I 

T  »  I  ♦  DT*  (EY*EY9)/2. 

IP  ((I  -  IT)  .GE.  -1.)  GO  TO  6 


2.  34. 

ZZ  *  FYC*¥*DD  ♦  32.17 

2235. 

Z  *  VT0*VT0  ♦  2. 0*  (YO-YT) *ZZ 

2236. 

or  *  (FYO  ♦  Z**(.5))/Z2 

2237. 

00  TO  5 

2238. 

6 

COITIBDB 

2239. 

fxc  •  tx 

22*0. 

FX  *  FX*(1.-F*DT«DD) 

22*1. 

OX  «  DX  ♦  DT*  (FIO*  FX)  /2. 

2242. 

F  *  <FX«FX  ♦  VY*VY)  •*{.51 

2243. 

IF  (TF  .  EQ.  T  PD)  GO  TO  12 

2244. 

IF  (E{7)  .GT.  509.)  GO  TO  11 

224  5. 

GO  TO  10 

2246. 

1 1 

AID  *  ABS(  (Y-2  (7)  )  ) 

2247. 

IF  (AID  .LT.  1.)  GO  TO  12 

2248. 

IF  (KTES?  .GE.  5)  BRITE  (6,199)  AID,  TF 

2249. 

19 

CONTIBOE 

2250. 

IF  (KTBSI  .GE.  5)  BRITE(6,108)  Y 

2251. 

IF  (Y  .GE.  1.)  GO  TO  7 

2252. 

30  TO  15 

225  3. 

12 

COBTIBOE 

2254. 

Z  *  -FY/F 

2255. 

ZZ«  <1.-Z*Z)**  (.5) 

2256. 

THF*ATAB  (Z/ZZ) 

2257. 

DG  «  32.17/(E(5)*E(5)) 

2258. 

TPD*  99. 

2259. 

YT  «  3.0 

2260. 

IF  (E  (7)  .GE.  509.)  E(7)  «  1.3 

2261. 

GO  TO  10 

2262. 

15 

Z  *  -FY/F 

2263. 

ZZ  »  (1.-Z*Z)  *•  (.5) 

2264. 

AX  *  ATA  N (Z/ZZ) 

2265. 

SR  *  (DX*DX  ♦  Y1*Y  1)  *•  (.  5) 

2266. 

TF  (0(5)  .EQ.  0.9)  GO  TO  8 

2267. 

BP  -  0(4)  /1990. 

2268. 

CP  *  D (5) /100C. 

226  9. 

GO  TO  9 

2273. 

8 

BP  -  9.000573*0(4) 

2271. 

CP  »  BP 

2272. 

9 

COBTIBOE 

2273. 

0  -  (B(6)  *E(6)*TF*TF) 

2274. 

D  (4)  *  (0  ♦  (SR*SH*  BP/Y 1)  **2.)  **(.5) 

2275. 

D(5)  *  (U*CP*CP*SB*SR)  «*  (.5) 

2276. 

SRT  »  SR/1990. 

2277. 

0(8)  *  ?1*TR*SIK(AI-'H)/SIH(AT) 

2273. 

DISP  ■  0(6) 

227  3. 

0(19)  *  01 SP*SRT 

2280. 

0(6)  »  0(10)/Z 

2281. 

AID  •  57. 3*A I 

2282. 

THFO*  57,  3*THF. 

2283. 

BRI~T(6,105)  TF,  SR,  AID,  THFD 

2284. 

2XTURR 

2285. 

30 

BRITE  (6,119) 

2286. 

STOP 

2287. 

101 

PORRAT  ( •  1 1  ,20X,'JHEH  FORBAT  ATTACK  DATA',/,/'  ', 

2  288. 

X' 

ATT  BO  HOG  X-HPI  Y-HPI  CFP  (RIP)  (DEE)  DT 

2289. 

It',/'  ', 

2290. 

X' 

SPEED  ALTITUDE  DIFE  TERH 1  TIB2  HI 

2291. 

XD  TD/BF  T  TO',/,/) 

2292. 

102 

FORBAT  (  6X ,  916  ) 

2293. 

103 

FORBAT  ('9’,  16, 7119  ) 

2294. 

104 

FORBAT  ('  ',61,  6F10.9,  3P10.3) 

2295. 

105 

FORBAT ( *  ' , 33 X , 'TP  ',F5.2,'  SEC  SR  ',P7.0,'  FEE-  ', 

2296. 

I 

1  IBP ACT  ABGLE  '.P5.2,'  DEG  (P0ZI4G  ABGLZ  •,F5.2,»  DEG) * ) 

2297. 

106 

FORBAT ( •  ••  ' , F6. 3, 1  SEC  '.PS.C,'  FEET  •,FB.1,»  FT/S'C') 

2298. 

107 

FORBAT  ( '  <,10X,'  DT  ',P10.4,'  FEPT  FEl,,F1n.3) 

2299. 

108 

FORBAT  (•  •  , '  ALT  ■ ,  F10.  2) 

2310. 

109 

FORBAT  ( 1  •  ,  'ALT  0 1  FF'  ,  FI  3 . 2 ,  •  TF  •.FI'.Z) 

2331. 

113 

FORBA  T  ( '  ',/•  ','LOOPIBG  IB  JSEB9.  CHICK  IRPOTS  A  N  D/O  *  TEST', 

2  302. 

X 

•  BITH  KTXST  -  6. ') 
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2iu5. 
2J06. 
230  7. 
23Ud. 

2309. 

2310. 

2311. 
3312. 
2313. 
231*. 
2  31  5. 

2316. 

2317. 
2J1d. 

2319. 

2320. 

2321. 

2322. 

2323. 
2320. 

2325. 

2326. 

2327. 
2320. 

2329. 

2330. 

2331. 

2332. 

2333. 
233d. 

2335. 

2336. 

2337. 

2338. 

2339. 
2360. 
23*1. 

2362. 
23*3. 
2366. 

2365. 
23*6. 
23*7. 

2348. 

2349. 

2350. 

235 1. 

2352. 

2353. 

2354. 

2355. 

2356. 

2357. 

2358. 

2359. 

2360. 

2361. 
236  2. 

2363. 

2366. 

2365. 

2366. 

2367. 

2368. 

2369. 

2370. 

2371. 

2372. 

2373. 
237*. 

2375. 

2376. 

2377. 

2378. 

2379. 
2390. 
2381. 


SUtiBOU  TINE  EXPail 

IBPLICIT  INTEGER  *2  (A-Z) 

BtAL  *6  PI,  PHI,  BEL.S.C.CT.TH.  CHI,  SC,  CC.AIDl,  *102,00,08, 

I  STG.CTG.KT.ET.XI.XI.D.R.DEN.DENI.EHITI.TCOP. BLDGHT.  PS, 

I  SEIP,  BIB. COB,  SIGBS, SIGD5,  SI0K.SI6D,  Cl,C2,C3,  51,52, 

I  I,  I,  F,  EH.  DBS,  DILI.  DIL2,  DIE,  ISIS,  ISOS,  PSB 

C  Tub  POLLOBIRu  JCL  IBBEBTS  TSARINA'S  COHHQN  "BASIC" 

//  DD  DSR=*.STEP1. COBROB, DISP=SHR 

//  DD  •/DC6«BLKSIZE»800 

DIHbBSIOB  XD(d)  ,  EBIT1  (100)  ,  PSB  (3)  ,  TC0V(2),  BLDGHI(2) 

c  thib  bout i be  bbtihaibb  the  expected  burbebs  of  bits  fob  attacks 

C  BIT*  PO  IB  T"  IBP  ACT  BEAPOBS  OBLE. 

BCECLb  »  0 

If  (KTiST.  GT. 4)88111(6,  1 101)  BI  BIAL.BPBIBT. BODE 
CCU  BT  »  0 
PI  =  3.14159 
c 

C  EIARIBE  TOE  ATTACKS  OBE  AT  A  TIRE 

C 

DO  200  I  *  1.BA 
BN  «  ATT  (I,  9J 

IF  (£RO(BB,  1,1)  .G£.  0)  GO  TO  5 

COURT  *  COURT  *  1 

IF  (COURT  .by.  1)  8BITE(6,1004) 

Go  TO  200 

5  BEL  «  BPEBEL(RB) 

BV  a  RTTPE (88) 

IP  (BE  .GT.  3)  BE  *  3 
RfLAG  «  0 
BS  «  ATT  (I.  7} 

LS  >  *11(1.8) 

P8I=  ATT  (I.  1)  /57.  3 
S  «  SIB  (FBI) 

C  >  COS(PBI) 

IF  ( (ATT  (1 . 1)  .BO.  0)  .OB.  (AII(I.I)  .10.  180))  GOTO  10 
CT  =  C/S 
GO  TO  20 
10  BPLAG  a  1 
20  COBTIBUE 
BP  a  BS 
DLS  «  o 

IT  (BP  .EC.  1)  GO  TO  24 
DLS  a  LS/  (BP  -  1) 

24  COBTIBUE 

I  a  ATT(I,2)  -  S*LS/2. 

I  a  ATT  (I,  3)  -  C*LS/2. 

SIGBS  =  2.200*ATT  (I,4)*AIT  (1 ,4)  ♦  ATT  (1.6)  *ATT  (1,6) 

SIGDS  «  2.  2  00  "ATT  (I.5)*ATT  (1.5)  ♦  ATT  (I.  10)  *ATT  (1,10) 

TSBS  <  2* SIGBS 
TSDS  «  2*SIGDS 
SIGB  «  SIGBS** (.5) 

SIGD  a  bIGDS**  (.5) 

F  a  1,  /  (SIGE*S  IGD*  6. 2  832) 

IT  (KTEST  .GT.  7)  BBITE  (6,  1008)  I  .LS.BP.DLS.X,  X.SIGB. 

X  SXGD.  P 
BH  a  1 

ERDt  <  ERD  (BB,  SUELT,  1) 

2d  COBIXBOE 
C 

C  F Ok  EACH  TARGET,  LORPUTE  THE  EXPECTED  BURSES  OF  RETS  FOR  ATTACK  "I” 

C 

DO  180  L  •  1,112 
DEB  •  0.0 

IF  ((B8.EC.2)  .AID.  (ERDI.E9.0) )  GOTO  180 
TGTA  ■  TGT2 (L, 1 2) 

TGTB  «  TGT2  (L,  13) 

IT  (ESDI  .BE.  0)  GO  TO  30 
£8*0 
GO  TO  32 
C 

C  THE  AVEBA8E  hit  D8BSITI  IS  DETIBHIBED  BX  ATEBAGIBG  THE  BIT  DE8SITT 
C  OftB  SET  SEAL  POINTS  OF  A  RECTANGLE  8  HOSE  DIIIENSXOIS  ABE  CHOSE*  TO 

C  BARE  IIS  ABBA  EJUAL  IB  SIZE  TO  THE  AREA  BITRIB  BRICE  THE  TAB  GET 

C  C OHIO  BE  BIT,  TAKING  INTO  ACCOUNT  THE  BOUNDED  CORNERS  OF  T8AT  ARIA. 

C 

30  Cl  >  (TGTA  *  IGTBI/2.0 
C2  -  3.1415926/6.0 


1 
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2  38  2. 

C3  *  -  C 1 *6801  -  C2*£HOI*lflOI 

23aj. 

£8  *  (-C1  ♦  (C1*C1  -  4*C3)**(0.5))/2.0 

2384. 

32 

TL1  *  TGIA  4  2*88 

2285. 

TL2  »  TGTfi  4  2«ES 

2386. 

78  *  TGT2  (L.9)  /S7.  3 

2387. 

SIS  *  SIH(TH) 

2388. 

CTG  •  COS(TH) 

2389. 

0  •  0.0 

2390. 

V  *  0.0 

2391. 

IF  (£8  .£U.  0.0)  SO  TO  35 

2392. 

U  >  (STG  »  CTG)  *  £8 

2393. 

¥  =  (STG  -  CTG)  •  £8 

2396. 

15 

coatimiE 

2395. 

20(1)  »  TGT2(L,1)  -  U 

2396. 

20(2)  «  TGT2  (L.  2)  *  ¥ 

2397. 

2  0(3)  »  TGI 2(0.3)  *  ¥ 

2398. 

XD  (4)  *  TGT2  (L,  4)  *  U 

2399. 

XO (5)  *  TGT2(L,5)  *  U 

2400. 

XO (6)  *  TGT2(L,6)  -  ¥ 

2401. 

XE(7)  »  TGT2 (L, 7)  -  ¥ 

2402. 

XD(8)  =  TGT2  (L,  8)  -  U 

2403. 

cEI  *  TH  -  PHI 

2404. 

SC  *  SIH(CHI) 

2405. 

cc  *  cos(cai) 

2406. 

SI  *  (SIG£S*CC*CC  ♦  SIGDS*SC*SC>**  (.5) 

2407. 

S2  «  (SXGBS*SC*SC  ♦  SIUOS*CC*CC)  *•  (.5) 

2408. 

61  «  (4*TL1/S1)  ♦  1 

2409. 

62  «  (4*TL2/S2)  ♦  1 

2410. 

IF  (KXE3T  .GT.  9)  6 SITE (6,  1 0Q9|  61,  82,  SI,  S2 

2411. 

IF  ((8  1  ♦  82)  .GT.  2)  GO  TO  100 

2412. 

DO  90  K  =  1,7,2 

2413. 

XT  *  XO  (K) 

2414. 

IT  -  XE(K*1) 

2415. 

XX  «  X  -  XT 

24  16. 

IF  (8PLAG  .  EQ.  1)  GO  TO  40 

2417. 

IX  »  ¥1  -  ¥  ♦  CT*XX 

2418. 

D  »  -II*S 

2419. 

A  »  It*C  -  XX/ S 

2420. 

GO  TO  50 

2421. 

40 

D  «  XX 

2422. 

B  *  (IT-¥)*C 

2423. 

50 

AID  1  =  0*  O/TS  05 

2424. 

If  (AIOl  .GT.  12.)  GO  TO  90 

2425. 

00  *  SEXP(-AIDI) 

2426. 

BcXt.Lt  «  4CXLLE  ♦  1 

2427. 

DO  80  .9  *  1,8P 

AID2  *  E»H/ISES 

2429. 

IF  (AIo2  .GT.  1 2. )  GO  TO  1 3 

2430. 

Vi  *  SEXK-AID2) 

2431. 

0*6  •  DE6  «  OB*  00 

2432. 

MCICLE  >  EklCLE  *  1 

2433. 

IF  (KT  ttST  .GT.  10)  6BIIt(6,10JS)  I  .  L.  A,  XT,  IT,  D.  B.  DO  .OB,  DB6 

2434. 

70 

fc  *  B  -  ELS 

2435. 

80 

COBTI8UE 

2436. 

90 

C08TI80I 

2437. 

026  •  086/(4.  «8P) 

2438. 

GO  TO  160 

2439. 

c 

IF  T88  TA8G8T  DI8E6SI06S  ARE  SHALL  (I.E.  LESS  THA8  J8E-0UARTER 

2440. 

£ 

TEE  PHOGECTIOH  OF  SIGBA  PARALLEL  TO  TEE  TABGxt  EDGE)  I EE  EIT 

2441. 

c 

086SITI  IS  1AKE6  AS  THE  AV XBAGfi  OF  THE  VALDES  AT  THE  FOUR  COBBERS 

2442. 

c 

IF  IT  IS  LABGEE,  A  GRID  OF  INTKRRA L  POI6TS  IS  ESTAELISHBO  AND 

244  3. 

£ 

THx,  Ell  086SITI  IS  TAKER  AS  THE  AVERAGE  OVER  THE  IBTER8AL  POI8TS. 

100 

COHTIBUE 

2445. 

0111  «  TL1/(61*1) 

*44  6. 

OIL2  *  1X2/(624  1) 

2447. 

681  •  81  4  2 

2444. 

862  «  62  4  2 

2449. 

Ob  150  8  *  1,881 

2450. 

oO  150  8  •  1,862 

2451. 

IT  *  XD(1)  4  (8-1)  *0IL1*STG  4  (8-1 )  *OIL2*CTG 

2452. 

IT  »  XO  (2)  4  (8-1 )  *  01  LI  *CTG  -  (8-1)  *0IL2*ST3 

2453. 

XI  «  X  -  XT 

2454. 

II  (8F  LAG  .  EO.  1)  GO  10  110 

2485. 

ii  «  ri  -  i  4  cr»xx 

24  J6. 

w  '  -n*s 

2457. 

i  *  I I*C  -  XI/S 

2438. 

GO  10  120 

Jr 
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24  i  9. 

1  1  J 

j  -  XX 

1 4o  0. 

«  =  (u-n 

I. 

Ai.m  =  j«o/1juo 

IF  (AIOl  .or.  12.)  GO  10  150 

24u  3. 

UJ  ~  SiXP(-Aijl) 

24o4. 

01V  4  0.0 

2400. 

IF  l  (n.E'2.1 )  .OK.  (H.  £.0.  *M)  )  OIV  =  2.0 

2460. 

IF  ((N.&J.1)  .Oh.  (N.E2.8A2)  )  LEV  »  01  V  «  2.0 

4407. 

IF  (OIF  .(It.  0.0)  DD  =  DD/DIV 

;«o  0  • 

N  C  X  G  0  fc  =  SCXCOt  »  1 

*4  04. 

Ov.  140  K  =  1 . 88 

247u. 

AI02  =  8*4/1040 

*47  1 . 

Ir  (Al  iiz  .  Ol  •  1  2 • )  u  j  TO  1  3  J 

24?  2. 

Ob  *  -jbXP  (-AIU2) 

*■*7  3. 

jib  b  ot:;  t  uS*oo 

2  4  7  4  • 

NCVoOj  =  MCVCOE  ♦  1 

2475. 

IF  (KTi.S'1  .Or.  12)  ItiLIl  (o,  1006)  I,  L.XT,  J7#0,h,  UU.UB.UEM 

*  4  7  O  . 

1 

ci  -  a  -  ObO 

<•477. 

1 4  J 

c'ON'I  IN  Ui 

2478. 

IS  J 

CUNTIN  Jt. 

24  7  7. 

DoN  4  0tN/((1  *  (:,  1  ♦  M2)  *  H1*<U)  *KP) 

2  4  d  0  • 

1  t>J 

20N1IM Jt 

240  1  . 

u  o  M 1  4  ^00 

2402. 

obM  4  MO*r'*Bci-*Ai  r  (I.  11)  *i)bN1/10J. 

24  0  0. 

4?  [iiltsr  .GT.  7)  Hfil'ir.  (o  , 1007)  I  ,  0,  DEN  1,  OEM 

2404. 

OOiil(L)  4  DON*  1  L  1*7L2 

.-.05. 

ouV2(E,Ni.(  4  (L,S8)  ►  tHirl(O) 

2  4  0  0. 

1.JJ 

0  0«T1N Ji 

240  7. 

L 

2408. 

c 

HE  PEAT  FOB  EACH  TAHGET 

2485. 

c 

2480. 

IF  ((N8  .20.  2). OH.  (MV  .LX.  2))  GO  TO  195 

2491. 

PSR(1)  *  (100.  -  £80  (MM.  SHEIT,  12))/100. 

2492. 

PSH  (2)  *  (1 00.  -  £80  ( MU.  SHEEP.  14))/100. 

2493. 

DO  190  0  *  1.MT2 

2494. 

Du  190  M  *  2. MV 

2495. 

190 

P2(L,H*1)  *  1.  -  (1.-  P2(0,N*1))*(PSB(H-1|**EHIT1(0)) 

2496. 

c 

2497. 

IP  (KTtST  . GT.  4)  MEITE  (6,1011)  PSE,  (EHIT1  (K)  ,KS1, 6) 

2498. 

c 

2499. 

PSE  ( 1)  =  (10Q.-ESU<HH,5HiOT,3)  )/100. 

2500. 

PS*  (27  =  (100. -E8D(Mb, SHEET,  4)  )/100. 

2501. 

PSE  (3)  =  (100. -EBO  (KM, SHEET, 5)  )/100. 

2502. 

DO  192  L  »  1,  MT2 

2503. 

00  192  M  4  6,  8 

2504. 

192 

P2U.M)  *  1.  -  (1.  -  P2(L,M)  )*(PSB(M-5»**EHIT1(t)) 

2505. 

C 

2506. 

IF  (KTEST  .GT.  4)  i  SITE  (6, 1  01 17  PSE,  (EHIT1  (K)  ,K*1, 6) 

2507. 

c 

2508. 

195 

COMTIMUE 

2509. 

It  -  It  M 

2510. 

EMDI  4  E80  (MM.SHELT,  1  07 

2511. 

IF  (ME  .£0.  2|  SO  TO  28 

2512. 

DO  190  E  4  1,|ix2 

2513. 

PS  4  (100.  -  E8D  (MM ,  SHEET,  13)7/100. 

2514. 

19a 

P2(l,5)  *  1.  -  (1.  -  P2  (E,5)  )  *  (PS**EHIT1  (L)) 

2515. 

200 

COMTIMUE 

2516. 

c 

2517. 

c 

REPEAT  FOB  EACH  ATTACK 

25t8. 

c 

2519. 

OU  205  L  •  1,  NT  2 

2520. 

P2  (l,  1 )  =  1.  -  SEXP  (  -COV2(L,1>  ) 

2521. 

205 

P2  (L,  2)  «  1.  -  SEXP  (  -COV2(0,2)  ) 

2522. 

IF  (IPRIMT  .GT.  2)  HETUBM 

2523. 

HEITE  (6, 1000)  HCXCEE 

2524. 

MEITE  (6,1002) 

2525. 

MB  «  0 

252b. 

TCOV  (1 )  »  0.0 

2527. 

TCOV(2)  *0.0 

2528. 

BOUGHT  (1)  -  0.0 

2S29. 

BOUGHT  (2)  *  0.0 

2530. 

Oil  210  0  •  1.MT2 

2531. 

HR  •  HI  ♦  1 

2532. 

00  208  I  ■  1,2 

2533. 

TCOV (I)  >  TCOV  (I)  *  COV2  (0,1) 

25)4. 

200 

u  OUGHT  (I)  4  BODGHT(I)  ♦  (1.  -  SEXP  (-COV2  (0, 1)  )  ) 

J 

no 


BBIIE  (6,100J)  L,COV2(L,1),  COV2(L,2),  (P  2  (L,  J)  ,  J- 1 , 8 ) 

continue 

BLDGHT(I)  =  BL0GHT(1)/NH 
BLDGHT  (2)  «  BL0GBt(2)/HB 

8BI1E  (6,1010)  TCO»(l),  8LUGHT  ( 1)  ,  TCOV(2),  BLDGHT  (2) 

£  ITU  tin 

POBHAT  (•O',  25X,  1 CICLBS  * ,  17,//,*  *,30X,'**  SB  BLTEBS  *•  •) 
POBHAT  (•  O',  10X.  'TARGET*, 13X, •  BITS*,  38X, • PROBABILITIES' ./,  121, 

•  NO*  ,  14X, '  EXPECTED*  ,  1  4X, 'HIT  (81)  HIT  (B2)  AC(B1)  SBELTBB  ', 

•AC  (82)  PEOPLE  AGE  PASTS'  ) 

POBHAT  (•  *, 101,14, 62,86.3,  41,86.3,61,886.3  ) 

FOfaflAT  ('1','  COMPUTATION!  IGBOBED  THE  CBU  aEAPOHS  IB  THE*, 

'  EXPECTED  VALUE  CALCULATION*  ) 

POBHAT  («  '.‘CO  ATT  *,I3,*  TGI  • , 13, •  COB  ',12, 

4P6.0,  3S12.4  ) 

POBHAT  (•  ','IP  ATI  •  ,  13,  *  TGT  ',13,486.0,3812.5) 

POBHAT (•  ','  ATT  '.Id,1  TGT  ',13,'  ATG  OKB 

88. 5, •  BOB  DEB  ',814.10,//) 

POBHAT  (•  '.'ATT  ',13,218,  P8.2.  488.1,  812. 5) 

POBHAT  ( 1  ' ,  *M  1  ',14,*  B2  *,14,61,2810.1) 

POBHAT  (■  •  ,201,  ' . .  ,/,  1  91,  P8.3,'(',P5.3,')', 

P8.3,*  (',85.3.')'  ) 

POBHAK*  •  ,201,  *PSB»,  1088.4  ) 

POBHAT  (•  ','  ******  EXPHIT  ',  318  ) 

END 


FUNCTION  SEXP(X) 

IF  (X  .LT.  -0.  025) 
SEXP  *  1.*X 
RETURN 

SEXP  -  EXP  (I) 

PETORB 

END 


Ill 


25g3. 

SUBROUTINE  STORE (  ITEM,  MCAF.D3) 

:c.7D. 

IMPLICIT  INTEGER  »2  (A -Z) 

2571. 

REAL  *4  A 

257  2. 

c 

T 

HE  FOLLOWING  JCL  INSERTS  TSARINA'S  COMMON  "BASIC" 

2573. 

// 

DD  DSN=*. STEP  1 .COMMON, DISP  =  SHR 

25  74. 

// 

DD  *,  DCP  =  BLKSIZE=80': 

2575. 

INTEGER  *4  CLASS,  TYPE 

2576. 

TN^ES  ES  *4  M HIT  EM, NOIEO , NOA 3? , NOPA PI , NOMON , NCTRAP, NOM ATL , NOPOL 

2577. 

INTEGER  *4  PEOPLE . A3E, P »R TS , A MMO, TR Ap  ,  M  ATEP  L,  POL  ,  NCEQ  01 ,  NOPEOP 

2  578. 

COMMON  /STORES/  M X I TEM , NO PEO, NO  AG E, NOP AE I , NOMUN , NCTFAP , NO M ATL, 

2  57  3. 

X 

NOPOL, NOEQUI , NOPEOP , PEOPLE ( 2 T 2 , 4 )  , AGE  (101,4)  .PARTS  (401, 4)  , 

2530. 

X 

AMMO  (1  26 , 4)  .TRAP  (26  ,4)  .MAT  ERL  (2b  ,4)  ,  POL  (10, 4)  ,  STOCKS  (17  00,3), 

253  1. 

X 

SQUIV  (400) 

2532. 

DIMENSION  A  (5)  ,  D(15) 

2533. 

FLAG  =  0 

2534. 

CAPD  =  1 

2585. 

n 

READ  (5,  1001)  D  ( 1 )  ,0  (2)JA(1)  ,D(4)  ,  D  (5 )  ,  A  (2)  ,  D  (7)  ,  D  (8)  ,  A  (3)  , 

2536. 

X 

D  (10)  ,D(11)  ,A(4)  ,0(13)  ,  D  ( 1  4 )  ,A(5) 

2537. 

1001 

FORMAT  (  5X,  5  (3X,I2,I5,P5,C)  ) 

2588. 

DO  15  S  =  1,5 

2589. 

I?  (D(3*N-2)  .  EQ.  0)  GO  TO  16 

2530. 

15 

D  ( 3  *  N )  =  10.0*  (A  (N  )  ♦  C.0001) 

2591. 

MAX  =  15 

2592. 

30  TO  17 

2593. 

16 

MAX  =  3*(N-1) 

2594. 

1  7 

IF  (NPRINT.LE.2)  W  RITE  (6  ,  1  00  2)  (D(N)  ,  N  =  1  ,  MAX) 

2595. 

1002 

FORMAT  ('  ',25X,5<*  C  ■  ,  13 , 215 , 4  X)  ) 

2596. 

N  =  1 

2597. 

20 

CLASS  =  0  (N) 

2598. 

TYPE  =  D  (N  + 1 )  ♦  1 

2599. 

STOCKS (ITEM, 1)  =  NT 

2600. 

STOCKS  (ITEM, 2)  =  D  <N*2) 

260  1  . 

GO  TO  50 

2602. 

C 

********** 

2603. 

ENTRY  PILE(ITEM, CLASS, TYPE) 

2604. 

c 

********** 

2605. 

FLAG  -  1 

2606. 

niooo  =  noc 

2637. 

IF  (NPRINT.LE.2)WRITE(6,  1002)  CLASS,  TYPE,  N1000 

2608. 

TYPE  =  TYPE  ♦  1 

2609. 

50 

GO  TO  (100,200,300,400,500,600,700),  CLASS 

2610. 

c 

2611. 

100 

IF  (TYPE  .LT.  1000)  GO  TO  110 

2612. 

TYPE  =  TYPE  -  999  ♦  NOPEOP 

2613. 

110 

NF  =  PEOPLE  (TYPE,  1 ) 

2614. 

IF  (NF  ,NE,  0)  GO  TO  800 

2615. 

PEOPLE  (TYPE.1 )  =  ITEM 

2616. 

GO  TO  1000 

2617. 

200 

NF  =  AGS (TYPE , 1 ) 

2618. 

IF  (NF  .NE.  0)  SO  TO  800 

2619. 

AGE  (TYPE,  1)  =  ITEM 

26.20. 

GO  TO  1CCC 

2621. 

300 

NF  =  PARTS  (TYPE,  1) 

2622. 

IF  (NF  .NE.  0)  GO  TO  800 

2623. 

PARTS  (TYPE, 1)  =  ITEM 

2624. 

GO  TO  1000 

2625. 

400 

NF  =  AMMO  (TYPE,  1) 

2626. 

IF  (NF  .NS.  0)  GO  TO  800 

2627. 

AMMO  ( TYPE,  1)  =  ITEM 

2628. 

GO  TO  1000 

2629. 

500 

NF  =  TPAP (TYPE, 1) 

2630. 

IF  (NF  ,  NS.  0)  GO  TO  800 

2631. 

TRAP  (TYPE,  1)  *  ITEM 

2632. 

GO  TO  1000 

2633. 

600 

NF  *  MATERL (TYPE,  1 ) 

2634. 

IF  (NF  .NE.  0)  GO  TO  800 

2635. 

MATERL  (TYPE,  1)  =  ITEM 

2636. 

GO  TO  1000 

2637. 

700 

NF  =  POL  (TYPE  ,  1 ) 

2638. 

IF  (NF  .NE.  0)  GO  TO  800 

2639. 

POL  (TYPE,  1)  *  ITEM 

2640. 

GO  TO  1000 

2641. 

C 

2642. 

803 

NX  *  STOCKS  (NF,  3) 

26  4  3. 

IF  (NX  .EO.  0)  GO  TO  907 

2644. 

NF  *  »I 

112 


2646. 

2647. 

2648. 

2649. 

2650. 

2651. 

2652. 

2653. 

2654. 

2655. 

2656. 

2657. 

2658. 

2659. 

2660. 


900  STOCKS  (NF,  3)  =  ITEM 
1000  STOCKS  (ITEM, 3)  =  0 

C 

IF {KTEST. GT.  4)  #8112(6,1101) ITEM, CLASS. TYPE.  (STOCKS (ITEM , K)  ,K=1 , 3) 
1101  FORMAT ( '  •.■  STORE  ',1018  ) 

C 

C 

ITEM  =  ITEM  ♦  1 

IF  (FLAG  .  EQ.  1)  RETURN 

(f  =  H  ♦  3 

IF  ((N  .NE.  16)  .AND.  (D  ( N)  .GT.  0))  GO  TO  20 
IF  (CARD  .SO.  NCARDS)  SETORN 
CARD  ='  CARD  ♦  1 
GO  TO  10 
END 
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76o7  . 

2  66  »  . 
2*  64. 

2  hf*b* 
Sbh  7  • 

?f>68. 

2  669. 

2  6 7C  • 

2  6  7  1  . 
?672. 

2673. 

2674. 

2  6  7  5. 
26  76. 

2  6  7  7. 

2678. 

2679. 

2680. 
2681  . 
2682. 

2683. 

2684. 

2685. 
2686* 
2607. 
2688  . 

2689. 

2690. 

2691. 

2692. 
269  3. 

2694. 

2695. 

2696. 

2697. 

2698. 

2699. 
2  700. 
2701. 
7702. 
2703. 
2  704. 

2705. 

2706. 

2707. 

2708. 
7  709. 
2710. 
7711. 

2712. 

2713. 

2714. 

2715. 

2716. 

7717. 

7718. 

7719. 

7720. 

7721. 
772  2. 
2723. 
7724. 
2725. 


C 


x 

X 

X 

C 

5 

C 

1  3 

C 

C 

c 

1  101 

c 

50 


c 

c 

ioo 

110 

zoo 

300 

400 

500 

600 

C 

800 


1001 

X 


SlNU-Cl  T  INF  SXVtMllAo.  «1£SI.  MAXLOC  ) 
l  M PL  1L  I  7  INK  P  *  ?  (  A-Z  I 
I  NTE  Ct°  *4  FLA!..  *  INU 


INTEL, FP  *4  MXtTEM.NCPEO.NGACE.  NOPART,  NCWUN , NCT RAP . NOMA T L . NOP OL 
INTEGER  *4  PEOPLE. AGE. PARTS. AMMO. T RAP.MATERL.POL.NOEOUI.NCPEOP 

COMMON  /STORE  S/  M*I Tf  P.NCPEG.NCAbE .NCPAR T , NCMCN. ACT  RAP .NOMA TL . 
NOPOL  .NUEO'l  I  .KQPEC'P  .PEOPLE  1  2 3 ?  .  4  I . AG E  (  1 0 l . 4  I  .PARTS!  401 .41  . 

AMMO!  126 ,41  .TRAP! 26. 41 . "AT  ERL ( 26 .4 • . POL ( 10 .4  I ,S TOCK S ( 1000. 3 1 . 
FOU I V  (  4*301 

COMMON  /  ZERO  /  E3IIIITI 


IP  1  PC  AC  .EC.  11  GC  TO  10 

LOC  =  1 

CLASS  3  0 

LAST  *  3 

00  5  I  =  1.0 

EOUI ( II  =  c 

RETURN 

EOUI VI  LOCI  =  0 
MAXLOC  =  LOC 
RETURN 

ENTRY  SAVE! CL  AS.  TYP,  KINDI 
********** 
type  =  TYP  ♦  1 

IP  (KTEST  .GT .  5)  WRITE (6, 1 101  I  L OC .CL AS .CL AS S .TYPE. L A  ST ,K INO 
PURMATC  SAVER  '.  818  1 

IP  tCLAS  .NE.  CLASS!  GC  TO  50 

IF  (TYPE  .£0.  LAST#  GO  TO  800 

EOUIVILOCI  =  0 

LOC  *  LOC  ♦  1 

LAST  *  TYPE 

CLASS  *  CLAS 

GO  TO  (100.200.300.400.500.6001.  CLASS 

IF  (TYPE  .LT.  10001  GO  TO  110 

TYPE  *  TYPE  -  999  ♦  NOPEOP 

P£0PLE(TYPE.4I  *  LOC 

GO  TO  800 

AGE( TYPE.4 1  *  LOC 

GO  TO  800 

PARTS (TYPE. 4 1  *  LOC 
GO  TO  800 
AMM0ITYPE.4)  »  LOC 
GO  TO  800 
TRAP (TYPE .4 1  *  LOC 
GO  TO  800 

MATERL (TYPE .4 1  «  LOC 
GO  TO  800 

EOUIV(LOC«  -  KINO 

If  (KIND  .EO.  01  EOUI (CLASS  I  *  1 

LOC  ■  LOC  ♦  1 

If  1LCC  .LT.  NOEQUU  RETURN 
WRITE (6.1 001 J  CLAS.  TYP.  KINO 

FORMAT!'  '.'THE  equivalence  array  is  too  small;  OVERFLOWED  '. 
•AT  ',318  I 

STOP 

ENO 
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2727. 

SUBROUTINE  DAMAGE 

2728. 

I8PLICIT  INTEGER  *2  (A-i) 

^729. 

INTEGER  *4  KBASE1,  88ASE2,  HSTAT .  ARIA,  TOTAL.  KABE6 .  DISK,  BENI 

2120. 

INTEGEB  *4  HXITEH, NO PEO , NOAGE , NOPA BT , NQBUN, NOT BAP, NOHATL, NOPQL 

2731. 

INTEGER  *4  PEOPLE,  AG£, PAP  TS,  AMMO,  I2AP,1ATEBL,PCL,NOZCUI,NOPFCP 

2732. 

REAL  *4  PK,  STAT,  TOTCOI , T0IC02, I0TC0  3, T0TC04. TO ECO  5 .TOTCC6 

273  1. 

C 

THE  FOLLOWING  JCL  IN  SEATS  T SABINA 1 S  CCflHOH  "BASIC" 

hi*. 

// 

DD  DSR**.SIEPr.C08aOK,DISP  =  SHa 

2735. 

// 

DC  *, DCB*BLKSI2K=800 

273o. 

COHBJN  /STORES/  8 KIT EB, 80PE0, NOASE , 8CPARI, 80BUI, BOTRAP, 80BATL, 

2737. 

X 

NOPOL.NOEgU I. 80PE0P, PEOPLE (202,4) .AGE  (101,4), PABTS (401,4) , 

2738. 

X 

ANHO (126,4) .TRAP (26,4) , BATERL (26,4) .POLE  10, 4) .STOCKS (1000,3) . 

2739. 

X 

EJUIV(400) 

21*0. 

COMMON  /SI ATS  /  STAt  (500,  17) ,BSTAT  (8) , NTIIAL, IIIIAL, NSTAT 

2  741. 

COMMON  /OUTPUT/  TSAB,  PUNCH,  NBASE1,  N BASB2 

27*2. 

DI&tMSIOH  DATA ( 15) 

2743. 

c 

2744. 

IF  ((8PRI8T  .GE.  3)  .AND.  (ITRIAl  .£0.  1))  KBITS! 8.2222) 

2745. 

2 

52  2 

ECR  HAT ( 1 1*) 

2746. 

C 

2747. 

c 

2748. 

c 

2748. 

c 

ThE  OUTPUTS  FOA  TSAB  HAY  BE  PBINTIt,  PUNCHED  ON  CAfiOS  AND  FILED 

2750. 

c 

DIRECTLY  08  DISK  80S  PBODUCTIOK  RUBS.  THE  2KC  ABC  3BD  OPTIONS 

2751. 

c 

ME  CONTROLLED  BY  THE  VARIABLES  PUNCH  AMD  ISAE,  RESPECTIVELY, 

2752. 

c 

AND  ABE  ZXEBCISED  WHEN  THE  VABIABLES  ABE  INITIALItXD  TO  UNITY. 

5753. 

c 

2754. 

c 

2755. 

MXN  T  *  HIM 

2756. 

DISK  =  ITRIAL  *  20 

2757. 

CAHDTY  =  40 

2758. 

JBASE  *  BASE 

2759. 

DC  10  K  =  1,15 

2760. 

1C 

DATA  (K)  *  0 

2761. 

DATA  ( 1)  *  DA  Y 

2762. 

DATA  (2)  >  HOUR 

2763. 

DATA  (3)  =  HINDIS 

2764. 

c 

2765. 

ll  (PDAH.GT  •  1 )  88116(6,7777)  CABEIY, J EASE,  (DATA(K)  ,K=1,15) 

2766. 

IE  (TSAR. Eg.  1)  RRITE  (DISK)  C ABD1Y ,J  BASE,  (DATA  (K)  .  K=  1 ,  15) 

27o7. 

IF  (PUNCH. EQ. 1)  KBITS (7 .8886) I  TRIAL, JBASE, KBASE 1 .NBASE2, CAY . HOUR 

2768. 

If  (PUNCH.  EQ.1)  KfiXTS  (7 , 8888)  CAR  DT  Y  ,J  BASE,  (DAI  A  (K  )  ,  K- 1  ,  15) 

2769. 

c 

2110. 

c 

AZCORD  DAMAGE  SUSTAINED  BY  VABIOUS  EBSOOBCE  STOBAGl  ABEAS 

2771. 

c 

2772. 

CALL  IHEPT  (HXITEH,  BINT,  NOEUUI,  STOCBS(I.I),  *(1,1),  TGT(I.I), 

2773. 

X 

BOUIV(I),  NOPEOP,  PCAB,  KT  1ST  L 

2774. 

c 

2775. 

CALL  REPORT  (  1,  PEOPLE  (1,1),  NOPEO,  3) 

2776. 

CALL  REPORT  (  2,  AGS  ( 1,  1)  ,  KCAGE,  4) 

2777. 

CALL  REPORT!  3,  PARTS(I.I),  NCPA8T,  5) 

2778. 

CALL  REPORT  (  4,  AHBO(I.I),  NOHUN ,  6) 

2779. 

CALL  REPOBT (  5,  IRAP(1,1),  NCIRAP,  7) 

2780. 

CALL  REPORT (  6,  H  AT  ERL  (  1  ,1) ,  NCHATL,  8) 

2781. 

CALL  REPORT!  7,  POL(I.I).  10,  6) 

2  782. 

c 

2783. 

c 

P6EP ABE  1  SAB  INPUT  DATA  FOB  TH8  SHOPS 

2784. 

c 

2785. 

DO  20  K  *  1,3 

2786. 

2C 

DATA (K)  =  0 

2787. 

JBASE  *  0 

2788. 

N  *  3 

2789. 

DO  40  SHOP  »  1,30 

2790. 

I  =  FACLTY  (SHOP) 

2791. 

IF  (1.20.0)  GO  TO  40 

2792. 

IF  (P(I,1|  .EO.  0.0)  GO  10  40 

2793. 

IF  (B  .EO.  15)  K  *  3 

2794. 

DATA  (B*  1)  »  9 

2795. 

DATA  (B*2)  *  SHOP  - 

2796. 

DATA  ( N*  3)  «  100*  (P  (1, 1)  ♦  0.005) 

2797. 

CO  30  K  *  4,6 

2798. 

30 

DATA (H*K)  *  100* (P (I,  (K-1)>  ♦  0.005) 

2799. 

K  *  K  ♦  6 

2800. 

c 

2801. 

IP  ((1,  50.  15)  ,ABD.  (PDAB.GI.  1)  )  NRITB  (6,7177)  CABCTI, JBASE, 

2802. 

I 

(DATA (B) .K-1,15) 

2803. 

IF  (  (TSAB.  sg.  1)  .AID.  (N.  10.15)  )  NRIIr(EISI)  CAB  Cl  t,  JBASE, 

2804. 

l 

(DATA  (B)  ,8-1,15) 

2805. 

IF  ((PUBCH.ig.1l.ABD.  (B.E0.15))  81111(7,8888)  CABD1Y , JBASS, 

2806. 

l 

(DATA  (B)  ,K*1,  15) 

2807. 

c 

2808. 

40 

CONIIBUE 

2609. 

IF  (8*9)  70,  50.  70 
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1  C  1  J, 

2H1, 

2. 

tbll. 

2615. 

*  b  1  > . 
2e  1 7. 
*»1  h. 

/  d  1  i  . 

<:  o2u . 

*  t<  1  . 
<  P*  J. 
2H2J. 
2824. 

2t«,5. 
262  o. 
7. 

itto, 
it<  i. 

iv. 

26  3  1. 

2«J2. 

*  6  J  J. 

i*. 
*»•  J  i. 

2h  Jt>. 

..  t  i  7. 
2e  J  3. 

26  J*. 
2640. 

/  84  1. 
2b4«i. 
zb4  j. 
2844. 

2  64  3. 
2ti4o. 

2847. 

2848. 

284  *. 
2850. 
2  851. 
2854. 

285  J. 

2854. 

2855. 
285b. 
2857. 
285d. 
2859. 
2660. 
2861. 
2862. 
2863. 
2664. 

2865. 

2866. 
2867. 
2866. 

2869. 

2870. 

2871. 
2672. 

2873. 

2874. 

2875. 

2876. 

2877. 
2076. 
2879. 
2060. 
2861. 
2862. 

2883. 

2884. 

2885. 

2886. 
2887. 
2686. 
2809. 

2890. 

2891. 

2892. 


LK  oC  K  -  10,15 
cC  L  A 1'  A  4  K )  -  0 

IF  (PJAJI.GT.  1)  Mi  lit  (o  ,  7  77  7)  CA  REX  If  ,  Jfl  AS!  ,  <DA1  A  (K)  ,  X  5  1.15) 

IF  (T:iAa  .  fcj.  1)  HRlT~(01Sfc)  C  A  h  CT  i  ,  J  fc  AS  i  ,  (  0  A 1  A  (  K)  ,  K  =  1  ,  15 ) 

IF  U'UtfCH.  Ev.  1)  NBITfc  <7 , 68b8)  L  A  b.  D I Y  ,  J  b  A  .a  h  #  (DATA  |  K )  ,  X  =  1  ,15) 

7C  CLN 1 1  K J  L 


C  bi.iiS  :j  -SIlHATfc  THt  t  bALXi.CN  OP  :-hi;LTERfct  AND 
■JF  i'A.i  4  J  Ai-Li  LXFOSDD  AltfCRAFl  THAI  Ahi  10 1ST. 


TOT J 1  - 

*OIw.  - 

i  - 

:  j^vV  ) 

*  1  L  J  2 

*  Jis.  J  I 

T 


*  -  ^.'4  'j 


o.c 

C  .0 
0.0 
0.0 
0.0 

c.o 


dllELTEAJ  Arti  HANDLED  him  XGT2  CABDS  CR  INDIVIDUALLY 
.•  .L*.  J)  .AND.  (N  SI  .E'2.  0))  GO  TO  215 

A  A  •  --  Nu 

if  |NT2  .cy.  0)  HAXS  *  »SH 


DO  21  J 

N  =  1  r  n  A  xs 

L..-1 

^  Turcoi 

♦ 

P2(K,  3) 

:  jtcoc* 

-  IcTC02 

♦ 

P2  1K,«) 

r  >j  r  c  j  j 

•*  tOTCC  3 

♦ 

P2(K,5) 

if  ( N  T2 

•  £w*  0) 

GO  TO  200 

i i*-'J4 

=  T0TC04 

♦ 

P 2  (*,6) 

ICtvCb 

=  TOTCOS 

♦ 

P  2 <H,7) 

UTCGb 

=  rorcob 

♦ 

P2 IK, 8) 

*»0  1  j  2  1 0 


^CC 

*1C 


rurco4  =  totco4  » 
IOTCU5  =  T0TC05  ♦ 

lorcob  =  xorcob  ♦ 

CC  N  1 1  NO  E 


P|SHELfK)  ,3) 
P  (SHEL.(K)  .4) 
P  (SHEL  (K)  .5) 


X 

1102 

C 


c 

c 


c 

c 

215 


IP  (KTEST.GT.  3)  WRITE  (6, 1102)  TOTCOI,  T01C02,  TOTCOi, 
T0TC04,  T0TC05,  TOTCC6 ,  ACLCSS 
P  OB  HAT ( •  • , ' D ANAGE-A • ,  6P8.4,  18  ) 

lOld  *  (100*  (TOTCOI  ♦  0 . 005) )  /H AXS 
IOTC2  =  (100*  (T0TC02  ♦  0.C05))/HAIS 
10TC3  =  ( 100*  (T0TC0  3  ♦  0.005)  J/SAXS 

iiS'll  MATE  THE  PERCENTAGE  LOSS  1C  EXPOSED  AIBCBAfI  AS  A  PBACTICN 
OF  THS  RAMP  SPACE  THAT  IS  COVERED  BY  GP  OR  CPU  EFFECTS. 

TOTAL  =  0 
KABEA  =  0 
UNSHEL  =  0 
IOTH1T  -  0 


C 

DO  230  I  *  1 .NT 

IF  <IGT(I,10)  .»E.  RAMPS)  GO  10  220 
AREA  =  TGT (1.12) *TGT (1.13) 

PK  *  1.  -  ( 1.-P  (1,5)  ) 

TOTAL  *  TOTAL  ♦  AREA 
KABeA  =  KAREA  ♦  PK*ARBA 
220  CON  II NUE 

IF  (TOTAL  ,GT.  0)  UNSHEL  *  ( 100*R ARE A) /TOTAL 

IF  (TGT ( I, 10)  • NB.  TXHYS)  GO  TC  230 
TOTHIT  *  TOTHIT  ♦  NHITUJ 
2  3C  CONTINUE 


C 

C  BELORJ  THE  REPAIRS  ON  TH£  LEAST  DABAGED  RUN  HA  Y  ARC 

C  THE  TOTAL  NUMBER  OF  HITS  ON  THE  TAXIHAYS. 

C 

IF  ( (REPAIR  ♦  TOTHIT)  ,£Q,  0)  GC  TO  250 
DATA (4)  =  9 
DATA  (5)  *  NOFAC 
DATA  (6)  *  REPAIR 


240 


EO  240  K  »  7,  9 
DA 1A  (K)  -  0 
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2893. 

2894. 
2  895. 
2890. 

2897. 

2898. 

2899. 

2900. 
4901. 
290  i+ 
2903. 
2909. 

2905. 

2906. 

2907. 

2908. 

2909. 

2910. 

2911. 

2912. 

2913. 
2916. 

2915. 

2916. 

2917. 

2918. 

2919. 

2920. 

2921. 
<9 22. 
2923. 
2929. 

2925. 

2926. 

2927. 

2928. 

2929. 
29J0. 

2931. 

2932. 

2933. 
2936. 

2935. 

2936. 

2937. 

2938. 

2939. 

2960. 

2961. 

2962. 

2963. 
2966. 
2965. 

2946. 

2947. 


C 


DA  I A  ( 1  3)  *  9 

DATA  (11)  =  NOP AC  -  1 

DATA  (12)  -  TOTHIT 

IP  (POAH.GI.1)  88118(6.7777)  CAEDTY,J BASE,  (DATA  (K) , i»  1 ,  12) 
IF  (TSAR. £0.1)  MBITS (DISK)  CABDTX , JE ASE,  (DATA  (K) , K* 1 , 12) 
IP  (PUNCH. EO.  1)  MBITS (7  , 8888)  CABDTT , JBASE, (DATA (K) , K« 1 , 12| 

CONIINJE 


STOat  THE  SHELTEB  AND  AIBCBAPT  DAB AGE  LAIA  USING 
1 8 E  SPECIAL  CLASS  *10  ENTRIES  POI  TSAB. 


C 


C 


C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 


IP  4  (TOTC 1* IOTC2+TOTC3+ UNSHEL)  .EQ.  C)  80  TO  310 

DATA  (6)  *  10 

DATA  (5)  =  1 

DAI A  (6)  *  TOTC2 

DATA  (7)  =  TOTC3 

DATA  (8)  *  UNSREL 

DATA  (9)  »  0 

DATA  (10)  «  10 
LATA  (11)  *  2 
D  AT  A  (  12)  *  ACLOSS 

IP  (PDAB.GT. 1)  MBITS (6,7777)  CAB DTI .JBASI. (DATA  IK) ,8*1,12) 

IP  (TSAB.8Q.1)  MBITS (DISK)  CABDTT, JfiASB,  (DATA  |K) ,1*1, 12) 

IP  (PUNCH. EO . 1)  MBITS (7 ,8086)  CABDTI, JSASE, (DATA (8) ,1*1 # 12) 

STONE  THE  EXPECTED  D AH AGE  TC  AIBCBAPT 

DATA  (A)  *  8 
DATA  (5)  *  0 
DATA  (6)  *  TOTC1 

STORE  THE  BESOUBC8  LOSS  BATES  8ZPBCTED  HATH  AIICBAP1  ABB  DABAGBO 

£  S  f I  HA IE  THE  LIKELIHOOD  THAI  PEOPLE,  AGE  BIB  SPABE  BAITS 
ABE  LOST  MHEN  AN  AIBCBAPT  13  DANAGEE  AS  THE  BATIO  Of  TUB 
PBOBANI LITY  THAT  THE  BBSOOBCf  IS  LOST,  CIVIDID  BT  THE 
PROBABILITY  THAT  THE  AIBCBAPT  IS  LCST. 

DATA  ABN  £N TEBED  IN  THE  OBDIB:  PEOPLE,  AGE  AND  BAITS 

PEODAH  *  0 
AGEDAH  *  0 
PBTDAH  -  0 

IP  (TOTCOI  .EQ.  0.0)  GO  TC  290 

PIOCAH  *  ( (100. 6X01004) /ICTC01  ♦  0.5) 

AGEDAH  ~  ( < 100. *TOTCOS) /TOTCOI  ♦  0.5) 

PBTDAH  *  ( ( 100. •TQIC06)  /TOTCOI  ♦  0.5) 

GO  10  300 


2948. 

2949. 

2950. 

2951. 

2952. 

2953. 

2954. 

2955. 

2956. 

2957. 

2958. 

2959. 
2560. 

2961. 

2962. 
296  3. 
2966. 

2965. 

2966. 

2967. 

2968. 

2969. 

2970. 

2971. 

2972. 
2*973. 

2974. 

2975. 


c 

290  CONTINUE 
C 

c  IP  THE  PK  AGAINST  AIBCBAPT  IN  SHIL1EBS  IS  8EB0,  OSl  THE 

C  POLLJ NING  RELATIONSHIPS  TO  PBOYIDE  A  PBOXI  POI  THE  LOSS 

C  BATES  POB  PERSONNEL,  AGE  AND  PAB1S  ASSOCIATED  MITH 
C  AIBCBAPT  THAT  ABB  IN  THE  OPEN. 

C 

PEUCAH  *  (100*8HD(1,SHBL1,3))/EHI(1,SBELT,13) 

AGEDAH  *  (100*£HD(1,SHBLI,4))/EHD(1,SHEL?,13) 

AGEPBT  *  (100*B(ID(1,SH2LT,5))/ERC(1,SHEL1,13) 

C 

300  CONTINUE 
C 

IP  (PEJDAfl  .GT.  100)  PEODAH  *  100 

IP  (AGEDAH  • GT.  100)  AGEDAH  ■  ICO 

IP  (PBTDAH  • GT.  100)  PMlCAfl  *  ICO 

C 

LATA  (7)  »  PEODAH 
DA IA  (8)  «  AGEDAH 
DATA (9)  *  PBTDAH 

IP  (PDAH.GT.  1)  NIZTE (6 ,7777)  CAICI* ,J EASE, (DATA (I) , !• 1,9) 
if  (TSAB • EQ. 1)  NtXTE(DXSI)  CABDIY , JBASI, (DATA  |K) , *«1 ,9) 
IP  (PUNCH, BQ.1)  NIXT8 (7 , 0888)  CABDTT, J8ASE, (DAI A (R) , Ka 1 ,9) 

C 

Jio  CONTINUE 
C 


117 


2*7?. 
2  S  /  o. 
i  ^  7  . 
2S«0. 
iuei. 
2*62. 
2*6  i. 
i*y<4. 

2*t»3. 

*9<J0a 


IF  (LA->*  .  i-J.  0)  EETU8H 
xJA&DTY  -  0 

It'  (PDAfl.til.l)  WHITE  (6 , 7777)  CABdY 
IF  (rs»s.£w.1)  WRITE (D I SK)  CARET* 
IF  (PUNCH. Eg. 1)  WRITE  (7 , 8888)  CARET* 
REI'JiN 

1777  FOaHAT ( •  *, 12,14,  1517) 


Hntjt,  FCa.lAI  <•  •••«••  TRIAL*  ,14,  *  BASE  ',13,4*,*  EASE  *,2A4,WX. 

*  *  DA*  HR*.  214  )  * 


oHHd  FOR.1ATU2.13,  ISIS) 

END 


r 

» 
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2988. 

SU8R0UT  INE  REPORT  (CLASS  •  A.  HA.  NR  1 

29fl9. 

IHPUC1T  INTEGER  »2  IA-2) 

?99fl. 

INTEGER  *4  MSTAT.CLASS.NXNT.NAX.NOECUI.NOPEOP.A.NA.NR.DrSK 

1 . 

INTEGER  *4  N8ASE1 .NBASE2 

2992. 

REAL  *4  STAT.  P.  FRAC.  TOT.  T0T1 

299  3. 

COMMON  /STATS  /  STAT 1 500 . 17 » ,HST ATI8 1 .NTRI AL, 1TR IAL .NSTAT 

2994. 

COMMON  /OUTPUT/  TSAR.  PUNCH.  N8ASE1 .  NBA SE2 

2995. 

COMMON  /  ZERO  /  SOUI (71 

2996  • 

DIMENSION  STOCKS (MAX. 31 , A( MA.4 t . 0ATAC15 t .P(NXNT.8I . 

299  7. 

X  TGT ( MXNT . 141 .  EOUIVINOEOUI I 

2998. 

C  • 

2999. 

C 

3000. 

c 

THE  OUTPUTS  FOR  TSAR  MAT  BE  PRINTED.  PUNCHEO  CN  CARDS  AND  FILED 

3001. 

c 

DIRECTLY  CN  DISK  FOR  PRODUCTION  RUNS.  THE  2ND  AND  3RD  OPTIONS 

30  J2. 

c 

ARE  CONTROLLED  BY  THE  VARIABLES  PUNCH  ANO  TSAR,  RESPECTIVELY, 

100  3. 

c 

AND  ARE  EXERCISED  WHEN  THE  VARIABLES  ARE  INITIALIZED  TO  UNITY. 

1004. 

c 

300  5. 

c 

THE  PRINT  OPTIONS  ARE  CONTROLLED  BY  THE  CONTROL  VARIABLE  -PDAM- 

3006. 

c 

3007. 

c  • 

3008. 

DISK  •  I  TRIAL  ♦  20 

1009. 

SKIP  •  0 

3010. 

IF  ( (CLASS.NE.il .ANO. (All.l l.EO.DI .AND. (EQUI (CLASS) .EQ.OII  SKI  P-1 

3011. 

CAROTY  •  40 

3012. 

JBASE  -  0 

3013. 

H  •  3 

3014. 

DO  10  K  •  1,15 

3015. 

10 

CATA (K 1  •  0 

301«. 

20 

IF  IMA  .EO.  11  GO  TO  160 

3017. 

00  150  1  -  2.  MA 

3018. 

IF  (CLASS  .NE.  11  GO  TO  30 

3019. 

IF  II  .EO.  ALU  GO  TC  150 

3020. 

30 

ITEM  -  All. 11 

3021. 

TOT  -  0.0 

3022. 

IF  (ITEM  .NE.  01  GO  TO  40 

3023. 

IF  (A(I, 41  .EO.  01  GO  TO  150 

3024. 

GO  TO  60 

302  5. 

40 

NT  »  STOCKS  1 1  TEN, 1) 

3026. 

FRAC  •  STDCKSI ITEM, 21/10.0 

302  7. 

TOT  -  TOT  ♦  FRAC*P (NT ,NR 1 

3028. 

ITEM  •  STOCKS! ITEM. 31 

3029. 

IF  (ITEM  ,GT.  01  GO  TO  AO 

3030. 

IF  (TOT  .EO.  0.01  GO  TC  50 

3031. 

Ad, 21  «  A(l. 21  A  (10-TCTI 

3032. 

All. 3)  -  Ad, 31  A  dOO*TCT*TOTI 

3013. 

50 

TYPE  •  I  -  1 

3034. 

T0T1  •  TOT/ 100. 

3035. 

TTYPE  *  TYPE 

3036. 

IF  ((CLASS  .EO.  ll.ANC.ITYPE.GT .NOPE OP) 1  TTVPE  -  999ATYPE-NCPE0P 

3037. 

IFUPOAH.EO.il. OR. IPDAM. £0.311  WRITE!  6.  77661  CLASS.  TTYPE,  T0T1 

3038. 

c 

3039. 

IFIKTEST.GT.il  WRITE (6 .1 101 1  I .CLASS, A(l .41 .TOT 

3040. 

1101 

FCRMATI*  REPORT*.  3110.  F10.4I 

3041. 

c 

3042. 

c 

A  REPORT  OF  ZERO  LOSSES  HAY  BE  REQUIREO  FOR  TSAR 

j 

3043. 

c 

3044. 

IF  ( Ad  ,AI  .EO.  01  GO  TO  100 

3045. 

IF  ((SKIP  .EO.  11. AND. 1  TOT  .EO.  0.011  GO  TC  150 

3046. 

c 

304  7. 

c 

WHEN  THE  RESOURCE  TYPE  SPECIFIED  IN  THE  TSARINA  TARGET  ARRAYS 

c 

IS  A  COMPOSITE  CF  SEVERAL  TYPES  USEO  IN  TSAR,  REPCRT  ThE  DAMAGE 

104  9# 

c 

TO  TSAR  FOR  EACH  TvPE . 

i 

3050. 

c 

3051. 

60 

LOC  «  Ad. 41 

3052. 

70 

KINO  •  EOUI VI LOCI 

3053. 

IF  (KINC  .LT.  31  GC  TO  150 

3054. 

75 

IF  (KTEST.GT.5I  WRITEI6 , 1 10 1 1  1.  CLASS.  KINO,  TOT 

3055. 

DATA! MaI I  •  CLASS 

3056. 

DATA! H  >2 1  •  KINO 

3047. 

OATAIHtJI  .  ITCT  ♦  0.5) 

3058. 

H  •  M  ♦  6 

3059. 

IF  (H  .NE.  151  GO  TO  90 

1060. 

IF  (POAM  .GT.  11  WR I TJI 6, 7777  1  CAROTY, JBASE,  ( OATAIKI ,R- 1. 15 1 

3061. 

IF  (TSAR. EO. 11  WRITE(DISK)  CAROTY. JBASE.  (OATAIKI ,K-1. 15) 

3062. 

IF  IPUNCR.EQ.l )  WRITE! 7,8888  I  CARCTY. JBASE .  (OATAI Kt ,K- 1, 151 

3063. 

DO  BO  R  •  1.15 

3064. 

80 

OATAIKI  •  0 

3064. 

H  •  3 

f 

> 

i 

L 

3066. 

90 

UK  •  IOC  A  1 

I 


119 


1067. 
3  06(1  . 
3069  . 
3070. 
307  1  . 

3072. 

3073. 
3076. 
30  75. 

3076. 

3077. 

3078. 

30  70. 
3080. 
3081  . 

3082. 

3083. 
3086  . 

3085. 

3086. 

3087. 

3088. 
3080. 
3000. 
3091. 
309  2. 
3093. 
3096. 

3095. 

3096. 

3097. 
309  8. 

3099. 

3100. 

3101. 

3102. 

3103. 
3106. 

3105. 

3106. 

3107. 
3138. 

31  19. 
311  3. 

3111. 

3112. 

3113. 
3116. 

3115. 

3116. 

3117. 

3118. 
1119. 

3120. 

3121. 
1122. 
3123. 
3126. 

3125. 

3126. 
1127. 

3128. 

3129. 

3130. 
1131. 

3132. 

3133. 
3116. 
1135. 
UK. 

3137. 

3138. 

3139. 

3160. 

3161. 

3162. 

3163. 
3166. 
3165. 


KIND  =  EOUIVILOCI 

IF  (KIND  .Ft.  31  DC  TO  150 

GO  TO  75 


un 

CONTINUE 

if  (Class  .ne.  11  go  tq  105 

IF  (I  .GT.  ALL  )  GO  TO  HO 

135 

IF  ((TOT  .EO.  J.OJ . AND. (A< l,l>  .EO.  C.OI) 
GO  TO  115 

CC 

TO 

150 

l  10 

IF  (ITOT  .EO.  0.01  . AND. (A(ALL. ll.EO. 0.0)1 

CO 

TO 

150 

115 

CONTINUE 

C  ONLY  ONE  TYPE  OF  POL  IS  PRESENTLY  RECOGNIZED  IN  TSAR:  TYPE  #1. 

C  DA  PAGE  DATA  ON  CTHEft  POL  TYPES  IS  NOT  STOREC  FC®  USE  BY  TSA®. 

C 


120 

130 

160 

150 


160 

C 


170 

C 


IE  ((CLASS  .EC.  7 1 , ANC. ( TYPE  .NE .  1)1  GO  TO  120 
DATA (M* 1 1  =  CLASS 
CATA(M»2I  =  TYPE 

IF  ( (CLASS. EO.l ) .AND. ( ! .GT.MAXPEOI I  D AT  A ( M.2 I  -  1300  *  I  -  ALL 
CATA(M*3I  *  (TOT  »  0.51 
M  =  M  ♦  6 


GO  TO  150 

II  WRITE16. 77771 
PRITE(DISK) 
WRI TE ( 7.88881 


CARDTY. JBASE. (0ATA(K1,K«  1.151 
CARDTY.  J BASE. < DATA! K1,K*  1.  151 
CAROTY. JBASE. (DATA (K!.K« 1.15! 


IF  (M  .NE.  151 
IF  (POAP  .GT. 

IF  (TSAR.EO.ll 
IF  (PUNCH.EO.il 
OC  160  K  *  1.15 
0ATA1KI  *  0 
P  *  3 
CONTINUE 

IF  (P  .NE.  91  GO  TO  160 

IF  (POAP  .GT.  II  WR1TEI6.  77771  CARDTY. JBASE .  ( DATAIKl ,K*1 .9 1 
IF  (TSAR  .EQ.  1)  WRITEIOISKI  CAROTY, JBASE.  ( OATA(K) ,K-1 ,9  I 
IF  (PUNCH  .EQ.  II  WRITE17. 88881  CARDTY. JBASE.  ( DATA! K I .K»l .9  I 
CONT INUE 


00  170  K* 1 « 1 5 
CATAIKI  *  0 


M  «  3 
NN  ■  1 
NO  •  l 

IE  (CLASS  .NE.  II  GO  TO  180 


NN  >  ALL 
NO  »  MAXPEO 
180  CONTINUE 
C 

00  250  I  »  1 .  NN.  ND 
C 

DATA ( M* 1 1  «  CLASS 
ITEM  *  A( I  ,11 

IF  ( ITEM  .EQ.  Ot  GO  TO  260 
TOT  *  0.0 

190  NT  «  STCCKSIITEM.il 

FRAC  *  ST0CKS1ITEM. 21/10.0 
TOT  «  TOT  »  FRAC»P«NT,NRI 
ITEM  »  STOCKSI ITEM.3I 
IF  IITEM  .GT.  01  GO  TO  190 
IF  ITOT  .EO.  C.OI  GO  TC  210 
A1NN.2I  >  AINN.2I  ♦  (IO*TOT) 

AINN.3I  ■  A ( NN  *  3  I  ♦  I IOO»TOT*TOT I 
210  T0T1  ■  TOT/100. 

IF  I  1  .EQ.  II  GO  TO  220 
CATA(M*2I  •  1000 
M2  •  1000 

IF  II  ROAM. EO.l I.0R.(P0AM.EC.3»IWR|TE(6,7T66ICLASS,M2,T0T1 
GO  TO  230 
220  0ATAI5I  •  0 

IF((POAM.E0.1I.OR.IPOAM.E0.3IIMR1TE(6.7766IOATAI6*.OATA«5I.TOT1 
230  CATAIM+31  •  ITOT  ♦  0.51 
260  IF  I  AM  ,  1 1  .NE.  01  P  •  P  ♦  6 
230  CONTINUE 

IF  IM  .EO.  31  RETURN 

IF  IPDAP  .GT.  II  WRI TE I6.T777I  CAROTY,  JBASE,  IOATAIKI ,K«i , 121 
IF  ITSAR.EO.il  WRITEIOISKI  CARDTY. JBASE • I  DATA! Kl ,K«1, 121 

IF  (PUNCH.EO.il  WRI  TEI  7 ,88(18  I  CAROTY.  JBASE.  IOATAIKI  ,K>1,  1 21 
RETURN 


ENTRY  I RPPT (MAX, MXNT.NCEOUI. STOCKS. P.TGT.EOUIV 
NCREOP.POAM.KTEST  » 


X 


120 


314*. 

C 

•  ••• 

)U7. 

3148. 

C 

MAXPEC 

*  MCPCOP 

♦  1 

3149. 

3130. 

c 

ALL 

«  NCPEOP 

♦  2 

3131. 

3132. 

c 

86  TURN 

3ISJ. 

7  766 

FORMAT  |  • 

'. 'CLASS 

•.17,*  TVP*» 

31S4. 

7777 

FORMAT  l  * 

'.12.14. 

1517  1 

31  S5. 

8888 

FCR“AT<  12 

.13.13151 

Jl5i. 

END 

121 


31  Vi. 

SLMBUUT  1  N5  MFSTAT IA.MA.N.NTRI »L 1 

11M. 

IMPLICIT  INTEGER  «2  (A-71 

MM. 

INTEGER  *4  NAME .  A.  MA.  1 

JIM. 

INTEGER  *4  TYPES  1 10 1 

*#* 

316?. 

PEAL  *4  TRIAL.  A  VC .  SO.  K 

116  3. 

BEAL  *4  DATA! 101 

*#* 

3  164. 

c 

3165. 

COMMON  /  LISTER  /  ISAVE 

•  0* 

3166. 

c 

3167. 

DIMENSION  AIMA.31,  NAME12.TI 

Jlotl. 

c 

3169. 

CATA  NAME  /*PEC*  .'PLE*  •  *  A • . #GE  •.*  PA*, 'RTS*. •  AN* , *M0  *, 

317  3, 

X 

•  TB  * • *  AP  • .‘MAT* .•E»L* .'  P*,*CL  *  / 

3171. 

c 

31  72. 

c 

31  73. 

IF  IN  .EO.  11  WRITEI6.1001) 

3174. 

c 

31  73. 

TALLY  •  0 

V  *0* 

3176. 

c 

\  *0* 

3177. 

TRIAL  «  NTRUL 

\ 

31  76. 

K  »  10. ‘TRIAL 

\ 

3179. 

IF  IN  .EO.  11  NCPEOP  »  IMA  -  21/7 

\ 

3130. 

c 

\ 

3181. 

ITEM  «  All. 11 

3182. 

IF  (ITEM  .EO.  01  GO  TO  23 

3183. 

AVC  •  AI1.2I/K 

3184. 

SO  »  (All. 31/100.  -  TRtAL*AVG*AVGI/ITRlAL  -  1.1 

3185. 

IF  (SO  .LT.  01  GO  TO  5 

3186. 

sn  *  SO** (0.51 

3187. 

GO  TO  10 

3188. 

5 

SO  *  -1 

3189. 

10 

WR1TEI6. 10021  NAME(1.M.NAME(2.NI.  AVG.  SO 

3190. 

20 

FLAG  *  0 

3191. 

CO  40  I  *  2.MA 

3192. 

ITEM  -  Alt. 11 

3193. 

IF  ( IT|M  .EO.  01  GO  TO  40 

3194. 

TYPE  *  I  -  1 

3195. 

IF  (IN  .60.  1 1 .AND. 1  TYPE  ,GT.  NCPEOPII  TYPE  *  TYPE  -  NOPEOP 

♦99? 

3196. 

AVG  >  Ad  .21/8 

3197. 

SO  •  (All. 11/100.  -  TRIAL *AVG*AVGI/(T8IAL  -  1.1 

3198. 

c 

3199. 

tally  *  tally  ♦  i 

••• 

3290. 

TYPES (TALLY  1  •  TYPE 

3201. 

DATA! TALLY)  »  AVG 

0«0 

3202. 

c 

0#0 

3203. 

(F  (SO  .LT.  01  GC  TC  25 

3204. 

SO  •  S0**(  0. 51 

3705. 

GO  TO  30 

3706. 

25 

SO  -  -l 

3737. 

50 

IF  (FLAG  .EO.  1)  GO  TO  15 

3708. 

WRITE  16. 10011  NAME! l.NI, NAME! 7.NI .TYPE . AVG. SO 

3209. 

FLAG  ■  1 

3710. 

GO  TO  40 

1711. 

35 

WR1TE16.1004)  TYPE.AVG.SC 

1712. 

40 

CONTINUE 

3713. 

C 

1714. 

IF  1  ISAVE  .EO.  01  RETURN 

••0 

1711. 

IFITALLV.GT.OlMRITE  (7.1 11  1)  N.  l<TVPiS(II.OATAim, 1*1. TALLY!  *8* 

1216. 

c 

0  •  • 

3717. 

RETURN 

1218. 

1  w3t 

FORMATI'l*. 'RESOURCE  TYRE  AVERAGE  STCDEV*,/, 

1719. 

K 

•  *.*  CLASS  LOSSES  LOSSES  './. 

3720. 

X 

*  '•*  PERCENT  *,/  ( 

3771. 

1002 

FORMAT!  *3*.  IX  ,2AJ,  •  ALL  '  .  2  (  4  >  .F  6 . 1 1  1 

3772. 

1033 

FORMAT  CO*. IX. 2A3.18.7R,  7I4X.F6.3)  1 

3723. 

1004 

FORMAT ( *  * . 10R. I 5. 2X •  214R.F6.JI  ) 

3774. 

1111 

FORMAT (11.  2R. 10(12.  F5.7I  1 

000 

3275. 

END 
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Appendix  D 
PROGRAMMERS'  NOTES 


The  TSARINA  program,  as  listed  in  Appendix  C,  requires  about 
250K  bytes  (or  64K  words)  of  core  memory.  This  requirement  is 
the  sum  of  about  115K  bytes  for  program  logj.c  and  135K  bytes  for 
data  storage.  If  TSARINA  is  to  be  run  on  a  computer  system  that 
does  not  support  half-word  FORTRAN  integers  (e.g.,  INTEGER*2)  the 
space  required  for  data  storage  will  be  approximately  doubled. 

If  these  core  requirements  are  excessive  for  some  installations, 
they  can  be  reduced  in  two  different  ways.  First,  the  program  is 
readily  adaptable  to  a  relatively  efficient  overlay  structure  that 
would  reduce  the  space  requirements  for  the  program  logic.  The 
structure  listed  below  should  not  affect  operating  speed  seriously 
and  would  cut  the  core  required  for  program  logic  from  about  115K 
to  about  25K  bytes : 

INSERT  MAIN, GAUSS 
OVERLAY  ZONE 

INSERT  INPUT .STORE, SAVER, JMEMO 
OVERLAY  ZONE 

I NSERT  BOMB , TE  STHT , H I TTGT , TGTD I M , TGTORD , TGTZON 
OVERLAY  ZONE 

INSERT  CBU.EXPHIT 
OVERLAY  ZONE 

INSERT  CHECKR, RUNWAY, PLOTHT 
OVERLAY  ZONE 


INSERT  PRINT , ST ATI S , DAMAGE . REPORT , RESTAT 
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The  space  required  for  data  storage  may  also  be  reduced 
dramatically,  depending  upon  the  nature  of  the  problem  of 
interest  to  the  user.  As  can  be  seen  from  a  careful  review  of 
the  code  and  comments  in  the  first  half  of  the  MAIN  routine 
(pp.  71,  72),  the  version  listed  in  Appendix  C  provides  space  for 
a  relatively  large  and  complex  problem:  500  targets,  50  attacks, 
1000  resource  packets,  and  hundreds  of  different  types  of  resources 
of  various  classes.  For  lesser  problems,  the  dimensions  of  the 
appropriate  storage  arrays  can  be  reduced  before  the  program  is 
compiled.  With  the  few  exceptions  noted  in  the  MAIN  routine  all 
of  these  changes  are  confined  to  COMMON  statements. 

The  same  procedure  can  also  be  used,  of  course,  to  increase 
the  si2e  of  the  storage  arrays,  if  the  user's  problem  exceeds  the 
bounds  of  TSARINAs  current  dimensions.  With  the  exception  of  the 
numbers  of  different  types  of  the  different  classes  of  resources, 
there  is  no  practical  limit  on  the  size  of  the  problem  that  can  be 
treated,  other  than  those  imposed  by  available  core  and  the  user's 
budget . 


